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INTRODUCTION 


This  report  describes  an  automatic  test  system  designed  specifically 
to  obtain  and  process  data  on  transistors,  microcircuits,  and  hybrid 
microcircuits  undergoing  field  tests  at  the  US  Tropic  Test  Center  in  the 
Panama  Canal  Zone.  More  than  5000  devices  have  been  returned  annually  to 
the  Electronics  Technology  &  Devices  Laboratory  (ET&DL),  ERADCOM, 
for  data  acquisition  since  the  start  of  the  test  program  in  1970. 


The  purpose  of  the  Panama  tests  is  to  obtain  field  life  test  data  on 
both  plastic-encapsulated  and  hermetically-sealed  semiconductor  devices 
when  operated  in  "worst  case"  temperature  and  humidity  field  conditions 
in  jungle  and  sea  shore  tropical  environments.  Field  tests  are  performed 
near  the  Caribbean  Sea  where  the  air-salt  content  is  very  high  and  in 
the  jungle  where  the  salt  content  of  the  atmosphere  is  very  low.  Test 
results  are  compared  with  data  obtained  on  similar  devices  in  an 
autoclave  test  program  at  ET&DL.  Data  correlation  is  studied  to  determine 
acceleration  factors.  Results  of  this  study  have  been  reported  in  other 
technical  papers,  I*2*-3’4*53 


The  test  system  development  evolved  from  an  earlier  ET&DL  design 
in  which  an  HP9825A  Desk-Top  Computer  was  used  for  data  storage  and 
manipulation  but  did  not  perform  any  tester  control  functions.  In  a 
still  earlier  ET&DL  design,  data  was  recorded  on  punched  tape  and  then 
transferred  to  punched  cards  for  batch  processing  on  a  Burroughs  B5500 
Computer.  In  the  present  system,  parameter  measurements,  test  fixture 
operation,  data  storage  and  manipulation  are  all  controlled  by  the 
HP9825A  Desk-Top  Computer. 


TT  irFi e'Td  Rel i ab i  1  i ty'  o f  Plastic  Encapsulated  Transistors  and  Integrated 
Circuits",  B.  Reich  and  E.  Hakim,  Microelectronics  and  Reliability, 

Vol.  10,  1971. 

2.  "Environmental  Factors  Governing  Field  Reliability  of  Plastic  Tran¬ 
sistors  and  Integrated  Circuits",  B.  Reich  and  E.  Hakim,  10th  Annual 
Reliability  Physics  Symposium  Proceedings,  April  1972. 

3.  "The  Use  of  Reliable  Plastic  Semiconductors  in  Military  Equipment", 

B.  Reich  and  E.  Hakim,  Microelectronics  and  Reliability,  Vol.  15, 
pp  29  to  33,  1976. 

4.  "Failure  Mechanisms  in  Gold  Metalized  Sealed  Junction  Devices",  E.  B. 
Hakim  and  J.  R.Shappirlo,  Solid  State  Technology,  April  1975. 

5.  "Panama  Field  Test  Results  of  Plastic  Encapsulated  Devices",  E.  B. 

Hakim  and  H.  A.  Schauer,  Plastic  Encapsulated/Polymer  Sealed  Semi¬ 
conductor  Devices  for  Army  Equipment  Symposium  Proceedings,  USAERADC0M, 
Fort  Monmouth,  NJ,  10  -  11  May  1978. 
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SYSTEM  DESIGN 


The  test  system  measures  electrical  parameters  of  transistors, 
microcircuits,  and  hybrid  circuits.  Test  instrumentation  includes  the 
following:  digital  multimeter  (DMM),  digital  processor,  display  station, 
extended  tape  memory,  printer,  desk-top  computer,  and  an  in-house- 
developed  test  fixture.  The  measuring  and  data  processing  instruments 
interface  using  IEEE  Standard  488.  Computer  test  programs  for  the  prior 
ET&DL  tester  were  modified  for  use  with  the  present  test  system. 

The  devices  under  test  are  mounted  on  circuit  boards  containing  either 
16  microcircuits,  12  hybrid  circuits,  or  24  transistors.  The  test  program 
selects  devices  sequentially  and  inserts  parameter  test  circuitry  as  needed. 
Display  lamps  on  the  test  fixture  panel  are  used  to  track  device  sequencing. 

Parameter  measurements  for  NPN  and  PNP  transistors  include  ICgQ,  hFE* 
and  Vgr.  Microcircuit  and  hybrid  circuit  measurements  are  restricted  to 
digital  logic  output  levels.  The  microcircuits  under  test  include 
complementary  metal  oxide  semiconductor  (CMOS)  NOR  Gates,  bipolar  NAND 
Gates,  and  NPN  transistor  arrays.  The  hybrid  circuits  are  dua1  level 
converters. 

The  test  system  is  configured  as  shown  in  Figure  1.  The  processor 
transmits  logic  signals  to  the  test  fixture  for  device  sequencing  and 
test  circuit  selection.  The  DMM  measures  voltage  and  current  parameters 
and  returns  test  data  to  the  computer  for  further  processing.  The  display 
station  and  extended  tape  memory  are  used  for  editing  and  storing  data 
summaries.  The  test  system  wire  list  is  given  in  Table  1. 

The  test  fixture  (Figure  2)  is  comprised  of  a  test  socket,  relay 
board  with  display  lamps,  and  a  measurement  circuit  board.  Circuit 
schematics  are  shown  in  Figures  3,  4,  and  5.  The  test  fixture  components 
are  given  in  Table  2.  The  test  fixture  wire  list  is  given  in  Table  3. 
Processor  control  wiring  is  shown  in  Figure  6. 
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TA8LE  1.  TEST  SYSTEM  WIRE  LIST 
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LAMP  DISPLAY 


Figure  4.  Relay  Circuit  Board  (Device  Sequencing  Section) 


AST * 


Figure  5.  Measurement  Circuit  Board 
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TABLE  2.  TEST  FIXTURE  COMPONENTS1 


TRANSISTORS 

All  Circuit  Boards  -  2N2219 
DIODES 


Relay  Circuit  Board  -  all  1N914  except  D4(1N973B,  33V  Zener) 
Measurement  Circuit  Board  -  all  1N914  except  D1(1N973B), 

D2,  D3(1N963B,  12V  Zener  selected 
for  11.8V  @  2mA  when  connected 
back  to  back),  D4  (1N270) 

RELAYS 

All  Circuit  Boards  -  DPDT  26Vdc,  600ft  Allied  Control 

Type  WKJ-6D 


RESISTORS 

Relay  Circuit  Board  -  all  transistor  base  resistors  1.2<ft 

Ul,  U2  pull-up  resistors  3.3icft 

Measurement  Circuit  Board  -  all  transistor  base  resistors  1.2<ft 

R1  licft 

R2  5.62icft  (W 
R3  1  Mft 
R4  5.6icft 
R5  2.225kP  (1%) 

R6  10<ft 


INTEGRATED  CIRCUITS 

Relay  Circuit  Board  -  Ul,  U2,  9311 

U3,  U4,  U5  7404 


INDICATOR  LAMPS 

Test  Fixture  -  LI  thru  L24  28V  Type  327 


CONNECTOR 

Burndy  P/N  UPC2A28P-4  (28  pin) 


Note:  1.  All  resistors 
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TABLE  3.  TEST  FIXTURE  WIRE  LIST 


Relay  Circuit  Board 


Wire 

No. 

,Color 

Code 

From 

To 

1 

ORN 

E 

Meas. 

,  Bd. 

(E) 

2 

BLK/WH 

B 

II 

II 

(B) 

3 

GRY 

G 

II 

M 

(G) 

40 

RED/WH 

3e 

Test 

Socket 

(L)  1 

" 

41 

RED 

3b 

II 

II 

(N) 

42 

GRN/WH 

2e 

II 

II 

(H) 

: 

43 

GRN 

2b 

II 

II 

(J) 

44 

BLU/WH 

le 

II 

II 

(D) 

45 

BLU 

lb 

II 

II 

(F) 

>  J1 

46 

VIO/WH 

6e 

II 

II 

(X) 

'  Socket 

47 

VIO 

6b 

II 

H 

(2) 

48 

ORN/WH 

5e 

II 

II 

(T) 

90 

ORN 

5b 

tl 

II 

(V) 

91 

YEL/WH 

4e 

II 

It 

(P) 

49 

YEL 

4b 

II 

II 

(R)  ' 

50 

RED/WH 

9e 

II 

II 

(L)  T 

51 

RED 

9b 

II 

II 

(N) 

52 

GRN/WH 

8e 

II 

II 

(H) 

53 

GRN 

8b 

It 

II 

(J) 

54 

BLU/WH 

7e 

II 

II 

(D) 

55 

BLU 

7b 

II 

II 

(F) 

>  J2 

56 

VIO/WH 

12e 

II 

II 

(X) 

Socket 

57 

VIO 

12b 

II 

II 

(Z) 

58 

ORN/WH 

lie 

II 

II 

(T) 

59 

ORN 

lib 

II 

li 

(V) 

60 

YEL/WH 

lOe 

II 

II 

(P) 

61 

YEL 

10b 

II 

II 

(R) 

62 

RED/WH 

15e 

II 

II 

( M )  > 

63 

RED 

15b 

II 

II 

(K) 

64 

GRN/WH 

14e 

II 

II 

(I) 

65 

GRN 

14b 

II 

II 

(G) 

J1 

66 

BLU/WH 

13e 

II 

II 

(E) 

Socket 

67 

BLU 

13b 

II 

II 

(C) 

> 

68 

VIO/WH 

18e 

II 

II 

(Y) 

69 

VIO 

18b 

II 

II 

(w) 

70 

ORN/WH 

17e 

II 

II 

(u) 

71 

ORN 

17b 

It 

tl 

(S) 

72 

YEL/WH 

16e 

II 

<• 

(Q) 

73 

YEL 

16b 

II 

II 

0  > 

74 

RED/WH 

21e 

II 

II 

(M)  > 

75 

RED 

21b 

II 

II 

(K) 

76 

GRN/WH 

20e 

II 

II 

(I) 

J2 

77 

GRN 

20b 

II 

II 

(G) 

y Socket 

78 

BLU/WH 

19e 

II 

II 

(E) 

[ 

79 

BLU 

19b 

II 

II 

(0 

f 
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-TABLE  3.  TEST  FIXTURE  WIRE  LIST  (Contd) 
Relay  Circuit  Board 


Wire 

No. 


80 

81 

82 

83 

84 

85 


Color 

Code _  From 


VI0/WH 

24e 

VI0 

24b 

0RN/WH 

23e 

0RN 

23b 

YEL/WH 

22e 

YEL 

22b 

Test  Socket 

it  it 


it 


(Y)l 

(U) 

(S) 

(Q) 

(o) 


02 
Socket 


Measurement  Circuit  Board 


4 

GRY/WH 

C 

35 

ORN 

D 

36 

VIO/WH 

b 

37 

GRY 

G 

38 

GRY 

G 

95 

ORN 

H 

96 

GRY 

L 

29 

GRN/WH 

-25V 

30 

GRN 

+25V 

31 

WH 

+16V 

32 

RED/WH 

+5V 

33 

VIO 

+0.2A 

34 

GRN 

G 

39 

ORN 

+5V(Vcc) 

Test  Socket 

>i  it 

DMM  "1" 

DMM  "I" 

Test  Socket 
DMM  "V" 

DMM  "V" 

-25V  Power 
+25V  Power 
+16V 
+5V 

+0.2A  " 

G 

+5V  (Vcc) 


(02  a-b, 
(01  a-b) 
(HI,  pin 
(L0,  pin 
(02  A-B) 
(HI,  pin 
(L0,  pin 
Supply 
Supply 


01  A-B) 

C) 

A) 

C) 

A) 
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CIRCUIT  SCARE 
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TEST  SYSTEM  OPERATION 


Computer  programs  for  the  test  system  are  recorded  on  cassette 
tape.  In  the  data-taking  program,  the  computer  requests  information  on 
device  type,  manufacture,  test  board  number,  test  bias  condition,  test 
hours,  and  other  identifying  data.  The  requested  board  is  then  inserted 
in  the  test  fixture  socket  for  automatic  testing. 

The  processor  includes  both  digital  and  analog  input  and  output 
functions.  Since  the  DMM  is  used  to  measure  electrical  parameters,  the 
processor  is  required  only  to  provide  digital  output  signals  for  test 
fixture  control.  The  underutilized  processor  can  be  replaced  by  a 
HP98032  16  Bit  Duplex  Interface  configured  for  direct  computer  control 
of  all  relays  in  the  test  fixture.  A  binary  output  field  from  the 
processor  controls  two  decoders  on  the  relay  board  for  relay  sequencing 
of  devices  under  test.  Digital  logic  signals  are  transmitted  to  the 
measurement  board  relays  for  sequencing  of  parameter  test  circuits. 


The  DMM  is  instructed  to  measure  device  voltages  and  transistor 
leakage  currents.  This  information  is  transmitted  to  the  computer  for 
further  processing,  data  printout,  and  data  storage.  The  parameter  measure¬ 
ments  include:  (a)  transistor  base  to  emitter  voltage  VBE,  (b)  voltage 
drop  measured  across  a  10  kfi  resistor  in  the  transistor  base  circuit  for 
sensing  base  current,  IB,  (c)  transistor  collector  to  base  leakage  current, 
Icbq»  and  (d)  voltage  levels  for  digital  logic  output  of  microelectronic 
devices  and  hybrid  circuits.  Transistor  current  gain,  J?FE*.  is  calculated 
by  the  computer  using  the  ratio  of  collector  current  (fixed  at  2mA)  and  base 
current.  Pass-fail  limits  are  programmed  for  each  parameter  measurement. 

Test  data  may  be  edited  to  show  failure  status,  device  removal  from 
the  test  board,  or  other  needed  information.  Failure  is  shown  as  "Possible 
Failure"  and  curve-tracer  tests  are  then  made  for  verification.  Device 
failure  rates  and  cumulative  test  hours  are  determined  using  a  data 
summary  program.  New  test  data  in  the  extended  tape  memory  is  transferred 
to  the  display  station  where  it  is  merged  with  previous  data  and  a  data 
summary  printout  obtained. 

COMPUTER  PROGRAMS 


A  flow  chart  of  test  options  is  shown  in  Figure  7.  Computer  pro¬ 
grams  for  transistor,  microcircuit,  and  hybrid  circuit  data-taking,  and 
data  summaries  are  given  in  Appendices  A,  B,  C,  D,  and  E.  The  data-taking 
programs  developed  at  ET&DL  for  the  earlier  tester  were  modified  for  the 
present  system;  the  data  format  and  summary,  programs  were  essentially  un¬ 
changed.  The  test  programs  are  not  in  their  most  concise  form.  Since 
certain  routines  are  repeated  for  each  device  category,  some  test  programs 
can  be  combined  to  reduce  the  software  requirement.  Examples  of  test 
data  and  data  summary  printouts  are  given  in  Appendices  F  and  G.  Other 
test  programs  include  a  "Split  Board"  routine  for  test  boards  containing 
devices  from  two  different  manufacturers  (Appendix  H),  and  a  "Table  of 
Contents"  routine  for  stored  data  (Appendix  I). 
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Figure  7.  Test  Program  Flow  Chart 
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CONCLUSIONS 


The  computer-controlled  test  system  is  being  used  successfully  to 
obtain  and  process  test  data  on  transistors,  microcircuits,  and  hybrid 
circuits  undergoing  field  tests  in  Panama.  Test  data  and  data  summaries 
may  be  edited  and  data  printouts  obtained  for  each  test  board.  Data 
summary  information  provides  a  useful  history  of  device  reliability  and 
test  board  status. 
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APPENDIX  A 


TEST  PROGRAM  FOR  TRANSISTORS  &  NPN  TRANSISTOR  ARRAY  ICS 


0:  "LOAD  FUNCTION  KEYS  &  PROGRAM  FOR  TRANSISTORS  &  NPN/ICS": 

Is  trk  1 
2:  ldk  0 
3:  dim  D$18)  , 

4:  ent  "Tbday  s  date?  ",D$ 

5:  ref  2 ,D$ 

6:  Idp  1 

Program  #1 

0:  "DATA  TAKER  FOR  TRANSISTORS  PHD  NPN  ICS  RETURNED  FROM  PANAMA: 

1:  "SEPTQBER  1979  VERSION*: 

2:  dim  A$f68i J3$[44]  ,X,Y,T$[5]  ,D$[8] 

3:  wtb  6  ,27  ,69 
4:  ldf  2  435 

5:  trk  0  . 

6:  fmt  5.8x,“E&ta  is  stored  on  Transistor  Thpe.  file  nos.",f2. 0,  &  * 
7:  ent  "Do  you  want  instruct icns?(Y  or  N)"  ,T$;if  flgl3;cfg  13?gto  -0 
8:  if  T^-jrjgto  +21 
9:  if  T$#"Y";gto  -2 

prt  Slhat  option  do" 
prt  "you  want?";spc 
prt  "0  Take  initial  " 
prt  "  data";spc 
prt  "1  Retake  aata"?spc 
prt  "2  Print  previous 
prt  "  data";spc 
prt  "3  Manually  edit* 
prt  “  incorrect  data";spc 
prt  "4  Verify  poss-  " 
prt  "  ible  failures  ";spc  ;spc 
prt  "Ito  not  use 
prt  ’^option  0  if  " 
prt  "initial  data  " 
prt  "was  previously  " 
prt  "reaorded."  ;spc  ;spc 
prt  "Enter  the  nunber 
prt  "yien  press" 
prt  CONTINUE  ":spc  ;spc 
ent  "What  nunber ?",r8;  if  flgl3jcfq  l&gto  -0 
da?  "Set  pacer,  then  press  CONTINUE  ,*stp 
wtb  6,27,84^27,70  ,161040 
gto  "INITIAL", -if  r 8>0;gto 
■'INITIAL": 
gsb  "Enter  ID  Info" 
gsb  "ft:  int  Heading" 
ent  "Is  heading  correct?(Y  or  N)"  ,T$ 
if  T$B"N*;gto  -3 
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11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22: 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49: 

50 

51 

52 

53 


;gto  "LOAD  PJCVIOUS  DATA"  ; if  r8>4;gtO  -3 


if  T$#"Y":gto  -2 
if  rl<3;qto  +6 
ell  take  readings  (1,2,0) 
wtb  6,12 

gsb  "ft  int  Heading? 

ell  take  readings  (3,rl,0) 

gto  +2 

ell  'take  readings' ( l.rl,0) 
gsb  "Another  ft  intout" 
gdb  "Record" 

"  END" : 

prt  "TO  run  the  " 
prt  "prograip  atairt" 
prt  ’press  RUN  ";spc  ;spc 
end 

" LOAD  PREVIOUS  DATA" : 


,f 2.0  ,b 
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(aont inue) 


54: 

55: 

56: 

57: 

58: 

59: 

60: 

61: 

62: 

63: 

64: 

65: 

66: 

67: 

68: 

69: 

70: 


24-8 (S>0) ,5] 


ent  "First  file  I  of  data", F; if  flgl3;cfg  13;gto  -0 
ldf  F,A$,B$,X,Y 
Y*rl 

DOS  (AS." NPN/lC  }* 
dim  C$fX,80l  rJ 

if  r  8=2;gto  ‘•PRINTOUT  PFEVIOUS  DATA" 
if  r 8=3;gto  "EDIT  INCDRFECT  DATA" 
if  r  8=4:gto  "VERIFY  FAILURES" 

"RETEST’': 

ent  "Date  of  retest? (06-19-78)"  ,A$[21,28);if  flgl3;cfg  13;gto -0 
gsb  "Print  Heading" 

ent  "Is  heading  correct?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  T$="Y";gto+5 
if  T$="N":gsb  "Enter  ID  Info" 
gsb  "Print  Heading" 

ent  "Is  heading  oorrect?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
7l:  if  T$#“  Y"  ;g  to  -3 

t>*  ent  "How  many  boards  to  be  retested?"  ,r5;if  flg!3;cfg  13;gto  -0 
if  r5>rl;prt  "Too  many  boards"  ;spc  ;spc  ;gto  -1 
for  1=1  to  r5 
for  E=1  to  24-8(N>0) 

0*C[I,E,4] 
next  E 

ent  “Board  #  of  retested  board?"  ,T$;if  flgl3;cfg  13;gto  -0 
(pcs(B$,T$)+10)/n-r6 

if  r 6=0; prt  "Wrong  #,  do  over";spc  ;spc  ;gto  -5 
gsb  "Device  Status" 
next  I 

ell  take  readings  (l,r6,l) 

ent^Is  retested  data  CK?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  TS="N";gto  +4 
if  T$|"Y";gto  -2 
gto  +9 


72: 

73: 

74: 

75: 

76: 

77: 

78: 

79: 

80: 

81: 

82: 

83: 

84: 

85: 

86: 

87: 

88: 

89: 

90: 

91: 

92: 


Ti 


ent  "Retest  again?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  TS="N"  ;g  to  +3 
if  T$#"Y"  ;gto  -2 
93:  gto  -10 

94:  prt  "Retest  was  not" 

95:  prt  "successful" ;spc  ;spc 
96:  gto  "END" 

97:  prt  "Another  printout" 

98:  prt  "is  reauired  in  " 

99:  prt  "order  to  have  a  " 

100:  prt  "complete  record  " 

prt  "of  all  data."?spc  ;spc 
gsb  "Another  Printout" 
gsb  "Reccxd" 
gto  "END 

’'PRINTOUT  PREVIOUS  DATA"  : 
gsb  "Another  Printout" 
gto  "END" 

"EDIT  INCDRFECT  DATA": 

ent  "Device  #  so  be  edited?”,T$;if  flgl3?cfg  13;gto  -0 


101: 

102: 

103: 

104: 

105: 

106: 

107: 

108: 

109: 

110: 

111: 

112: 

113: 

114: 


vaHTS^ 


for  T=1  to  rl 
for  J=1  to  24-8(N>0) 
if  cTl  ,J,4]#D?gto  +29 
gsb  "Correct  Data 
115:  gto  +23 
116:  "Correct  Data  : 

117:  dsp  "Oorrect  value  of  ICBO  for  #",T$ 
118:  ent  "M,r9;if  flql3;cfg  13;gto  -0 
119:  dsp  ’'Correct  value  of  BETA  for  #",T$ 
120:  ent  "",rl0;if  flgl3;cfg  13:gto .  -0 
121:  dsp  "Oorrect  value  of  VBE  for  #  ,T$ 
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(oontinue) 


122:  t 

123:  I 
124:  f 
125:  v 
126:  f 
127:  v 
12b:  v 
129:  v 
130:  £ 
131:  ' 
132:  < 
133:  J 
134:  : 
135:  : 
136:  ) 
137:  1 
138:  ( 
139: 
140: 
141: 
142:  i 
143: 
144:  < 
145:  ' 
146: 
147: 
148: 
149: 
150: 
151: 
152: 
153: 
154: 
155: 
156: 
157: 
158: 
159: 
160: 
161: 
162: 
16  3: 
164: 
165: 
166: 
167: 
168: 
169: 
170: 
171: 
172: 
173: 
174: 
175: 
176: 
177: 
178: 
179: 
180: 
181: 
182: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 


ent  ""  ,rll;if  flgl3;cfg  13  ;gto  -0 

prt  "Oorrect  values 

Emt  "lor  device  ",c5,":'  ,/ 


Emt  "lor  device  ",c5,‘:  ,/ 

wrt  16  ,T$ 

fmt  c5,fll.3 

wrt  16,MKBO="  ,r9 

wrt  16  ,rl0 

wrt  16  ,"VBE=" ,rll 

ent  *ls  data  now  oorrect? (Y  or  N)".T$;if  flgl3;cfg  13;gto  -0 
if  T$="N"  ;gto  "EDIT  INCORRECT  DATA" 
if  TSi" Y":ato  -2 

r9»C[I  ,J,1]  ;r  10*C[I  ,J,2]  ;r  11-^C [I 3 3 ; 2-KZ [I  ,J,5] 
ret 

ent^Bdit  another  device? (Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  T$="N"  ;gto  +6 
if  T$#" Y"  ;q  to  -2 


if  T$#"Y";gto  -2 
4*1:  24-8  (N>0)*J 
next  J 
next  I 

gto  "EDIT  INCORRECT  DATA" 
gsb  "Another  Printout" 
gsb  "Record" 
gto  "END" 

s  VERIFY  FAILURES": 
fxd  0 

for  1=1  to  rl 

for  J=1  to  24-8(N>0) 

dsDC^isJ5ev^.ci?^J.4]il,"a  verified  failure?" 


if  T$=,'y,,;1*C[Ij?J,5];< 
if  TS#"N" ;g  to  -3 
dsp  ‘is  device'  ,R,  be 
ent  " " ,T$ ; i f  flgl3;cf 


dsp  "Is  device  ",R.  "being  removed?" 
ent  " " . T$ ; i f  flgl3;c£g  13;gto  -1 
if  T$=,,VT;-2*C[I,J,5];gto  +6 
if  T$#"N"  ;q  to  -3 

dsp  r,ls  device"  ,R.  "to  be  edited?1" 
ent  "".T$;if  flgl3;cfg  13;gto  -l 
i  f  fr$= "  n"  •  q  to  +2 

if  T$="Y,,;str(C(I  ,J,4])*T$;gsb  "Oxrect  Data" 
next  J 
next  I 

gsb  "Another  Printout 
gsb  "Record" 
gto  "END" 

’'Enter  ID  Info": 
prt  "Insert  cartridge 
ort  "with  old  test* 
prt  "data  into  #1" 
prt  "slot  of  98/7A  ;spc 
prt  "If  no  file  last"^ 

£lgl3; cf g  13, gto  -0 

if  Z>0;gsb  "Last  Year" 
i£  Z>0;ret  ,  , 

ent  "Manufacturer?  (3  characters)  ,A$ 
if  (len(A$)*T) #3;gto  -1 
ASi "  "*A8 

ent  "Part#?  (8  characters)"  ,A$[  61 
if  (len(A$)-T)#13;gto  -1 
A$&'*  •'♦AS 

ent  "Crigin?  (4  characters) ",A$(  15] 
if  (len<AS)*T)#18;gto  -1 
ac  c  »•  H-*AS 

ent  "Date  of  test?  (01-02-78) "  ,A$[21] 


'Oxrect  Data" 
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(continue) 

190:  if  (len(A$)-T)#28;gto  -1 
191:  A$S.A  Pan  ''*AS 

192:  ent  "Panama  location?  (11  cnaracters)”  ,A$[35) 

193:  if  (len(A$)*T)  #45;gto  -1 
194 •  "  "♦AS 

195:  ent  "#  ol  Previous  tours?", T;if  flgl3;cfg  13;gto  -0 
1%:  if  (T+9000*H) >99000 ;g to  -1  9  9 

197:  fxd  0 

198:  str(H)-A$(47,52] 

199:  AS "♦AS 

200:  ent  "Board  type?(NPN,  PNP,  NPK/IC,  etc)" ,A$(56] 

201:  pos (A$ ,  NPN/lC  ]*N 
202:  if  (len(A$)*T)  <57  or  T>66;gtc -2 
203:  for  I=7T  to  66 
204:  A$&"  "♦AS 
205:  next  I 

206:  ent  "Are  devices  biased?(Y  or  N)" .A$ [67] : if  flql3:cfq 
207:  if&AS^67,#"Y"  and  A$  [il ,67]  #W  ;gto  -i  9  '  9 

209:  ent  "tow  many  boards  in  the  group?" ,rl; if  flgl3:cfg  13;qto  -0 
210:  "  "♦&$ 

211:  if  rft=0;dim  C$[5,80]  ,C [r  1,24-8 (N>0)  ,5] 

212:  for  1=1  to  rl 
213:  fxd  0 

214:  dsp  "First  device  #  for  board  ",I 
215:  ent  ""  T;if  flgl3;cfg  13;gto  -1 
216:  if  T<100; "  "&str(T)*T$[i,5] 

217:  if  T<1000  and  T>99;‘  "S-str (T)vr$[l ,5] 


13;gto  -0 


**************  TEST  DATA  ******************  j 


221:  T$*[i'5U"” '"♦BS'[lil-5 ,'li.I] 

222:  gsb  ^Device  Status" 

223:  next  I 
224:  for  1=1  to  5 
225:  "  "-CS[I  ,1,80] 

226:  next  I 
227:  ret 

228:  "Print  Heading": 

229:  fmt  l,15x ,"*****’ 

230:  wrt  6.1 

231:  fmt  2,8x,"lVAN.  DEVICE  FBDK  TESTED  LOCAL  CONDITION  HOURS 
232 :  wr  t  6 . 2 
233:  fmt  8x,c66,/ 

234:  wrt  6  ,X$  [1 .66] 

235:  fmt  8x  ,  BcArI:  ",o44,/ 

236:  wrt  6 ,iis 

237:  if  AS [ 67, 67]  ="N"; fmt  8x,"N0  BIAS  IN  THE  FIELD". /;wrt  6;gto +5 

238:  fmt  8x  "FIELD  BIAS  CONDITIONS:  V  =10  VcQ.ts",4fc 

239:  wrt  6.27.86,0.3 

240:  fmt  32x/CE,f  .4b 

241:  wrt  6,27,86,0.29 

242:  fmt  8x" I  nA)'*  ,7x,"BETA",7x,  ’V  (V)"  ,6x," DEVICE"  ,4b 

243:  wrt  6,27.86,0,3 
244:  fmt  Sx  "CBc/ ,24x,"BE"  ,13x,4b 
245:  wrt  6,27,86,0.14 

246:  fmt  Six  "V  =16V  V  =5V,I  =2mA  I  =200mA  No. 

247:  wrt  6.27,86.0,3 

248:  fmt  l0x/CBrf.9x."CE"  ,5x,"C"  ,7x,"B",4b 
249:  wrt  6,2"?  ,86  .(5,1 5 

250:  fmt  6 ,9x,"  ((5-1000) ".5x,"  (25-400)  "  .5x,"  ( .5-2.  5)" 

251:  fmt  7,7x (0-1 ,000 ,000)  " ,2x,  "(10-400)"  ,5x, "( .5-2. 5)" 

252:  sgnfpcs  (A$, "Power")  )-*rl6 
253:  |f  rl6=0; wrt  6.6 
254:  if  rl6=l;wrt  6.7 
255:  wtb  6,27,86,0,14,10 
256:  ret 

257:  "take  readings": 


BOA 


STATUS”, 4b 


;WN  ,20;  DO, 2 ,25,1 ,0;WN,20'* 


',val  ("  " &B$ 1 111-10 ,111-7]  )-D 


(ocnt  inue) 

258:  0-rl6-rl7 

259:  if  pos(A$  ,"£Ower ") >0; l+rl6 
260:  it  pos (A $ QLd ")  >0;  l-rl7 
261:  for  I=pL  £o  p2 
262:  if  p3=0lgto  +4 
263:  for  K=1  to  24-8<N>0) 

264:  if  C[I  ,K,5]#-3;0*C[I  ,K,5) 

265:  next  K 
266:  fmt 

26  7:  wr t  701  "DO  ,2  ,18 ,2  ,0  ,0 ;  WN  ,20;  DO  ,2  ,20  ,9  ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1  ;WN  ,201 ' 
268:  red  701  .C 

269:  if  pos{AS  ,"NPN"  )  =0;q  to  +3 
270:  wrt  /01 ,  6o,2  ,2b  ,1 ,0;WI> 

271:  red  701£;q£o  +3 
272  :  wrt  701  "DO ,2  ,26  ,1 ,0;  101,201' 

273:  red  701  ,C 
274:  1-d-K-B;  14-V 
275:  fxd  0;dsp  "Insert  board 
276:  stp 

277:  wrt  701  ,"P0,2  ,1 ,1 ,14;WN,20;  DO, 2 ,18  ,2  ,1 ,0;WN ,20!" 

278:  red  701  ,C 

279:  if  pos  (A$ , " NPN" ) =0 ;q  to  "PNP" 

280:  "NPN" : 

281:  clr  702;rem  702:flt  6 
282:  wtb  702  ,"F3lRf0S7D?" 

283:  red  702  £  (I  ,K,J] 

284:  gto  "run" 

285*  "2N"* 

111  SfJ  ;1^.^20jl»,2,23A.0!l«.20,DO^.20,l^WN^;- 

288:  red  701  ,C 

289:  wtb  702  ,"F1VRT0S2)?" 

290:  red  702,C[I  ,K,J] 

291:  gto  "run" 

292:  *3N": 

293:  wrt  701  ,"D0,2  ,20  ,1 ,1;  W  £0;DO,2 ,22 ,1 ,0;WN,20l" 

294:  red  701  ,C 

295:  wtb  702,"FlVRr0S2D?" 

2%:  red  702, C[I  ,K,J] 

297:  "run": 

298:  if  J=l; 10  9C  | 


299:  if  J=2;if 
300:  if  J=2;20/C  [I  X 
301:  if  J=3;C[I  K  f ] 

302:  if  J=4;D*cfl,K, 

303:  if  C[I  ,K.5J=-3;' 

304:  if  Jf3;qto  +5 
305:  if  CUJ|,2J  >400^1^1^5] 


,4 

J] 
gto  +6 


)<.l5l;  .G2002-»C[I  ,K,J] 

jf'J1 


I  ,K,3 
I  ,K  ,1 
I  *,1 


<.5  or  C [I 
>1000  cc  C 
>10  b  or  C 


306:  if  r 17=0  and  (Cf 

307:  it  rl6=0  and  (C[ 

308:  if  r  16=1  aid  (C 

309:  if  J#4;gto  +13 

310:  gsb  Vrint  data  line" 

311:  if  K=24-8(N>0)  ;wtb  6.10;gto+17 
312:  1+K-K;  0-0 ;  EH-l-D;  B+l-B 

313:  if  N>0:if  B=2  or  B=5  or  B=8  or  B=ll  or  B=14  or  B=17  or  B=20  or  B*23;B+1--B 
314:  if  B<=  15: 15-B- V;g  to  +4 
315:  if  B>15;31-B-V 
316:  fmt 

317:  wrt  701  ,"D0 ,2  ,18  ,2  ,0  ,1;  WN,20 1"  ;red  701  £ 

318:  fmt 

319:  wrt  701  ,"F0,2  ,1  J."  ,V,M;WN.20;DO,2.22,1,1;VH,20;" 

320:  wrt  701 ,  "DO,2  ,23  ,1 ,1;  WN,20;  D&,2  ,2lj  ,1;  WN,26;" 

321:  wrt  701  ,"D0,2  ,26  ,1 ,0;WN,20l"  ;re<5  7(fl  ,C 
322:  J+1-0 

323:  if  J=l;g  to  "fPN" 

324:  if  J=2;gto  "24" 

325:  if  J=3;g to  "3N" 
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(continue) 


fxd  0;dsp  "Taking  data  on  device  #M  ,D 

9  to  "ruit" 

rmt 

wrt  701 ,  "DO  ,2  ,18 ,2  ,0  ,0  ,20 1 " 

red  701  ,C 

next  I 

ret 

"PNP": 

clr  702;rem  702;flt  6 
wtb  702,"F3IKTQS7D?" 
red  702,dl,K,J] 
gto  "runl* 

57  a,-: 

wrt  701 , "DO ,2  .26  ,1 .1; WN ,20;  DO  ,2,2  3  ,1 ,0;WN,2Q;  DO,2  ,25 ,1 ,0;  " 

wr  t  701 ,  "WN  ,26;  DC5  ,i  ,$0 ,1,0  ;WN  ,26 i" 

red  701  ,C 

wtb  702,"KNX-1" 

wtb  702,"FlVRXIT0S2D?" 

red  702 ,C? I  ,K,J] 

gto  "runl* 

«2P" ; 

wrt  701, "DO ,2  ,20,1,1;WN,20;DO,2  ,22  ,1 ,0;WN,20!" 
red  701  ,C 

wtb  702  ,"F1VRX1T0S2D?" 
red  702, C[I  ,K,J] 

"r  uni" : 

if  J=1;10“9C(I  -K,J]-*CfI,K,J] 


V/  — XV  IX  tW  I  'X,  IX  fl\  »  W  I 

if  J*2;if  abs(C(I  j(,jt)<.01;  .02002-*C [I  ,K,J] 

if 

if  J=4;D*cfl  ,K  ,J1 

II  SiI3:'lf|,S3:9{o  +6 


if  J#4;gto  +14 
gsb  print  data  lire" 
if  K=24 ; wtb  6,10;gto  +18 
1+K+K;  0*J;D+1+D;V-1+V 
fmt 

wrt  701  ,"DO,2  ,22,1 ,1;WN  ,20:  DO,2 ,23  ,1 ,1  ;WN,20;DO,2  ,25 ,1 ,1; WN  ,20 
wrt  701,"DO,2;26  ,1,0;WN,20!" 
red  701  ,C 

wrt  701  ,"P0,2  ,1 ,1"  ,V,"  ;WN  ,201 
rod  701  ,C 
if  V>=0;gto  +4 
if  V<0;15*V 

wrt  701 , "DO ,2  ,18 ,2  ,0  ,l;WN,20i" 

red  701,C 

J+1*J 

if  J=l;gto  "PNP" 
if  J=2;g to  "2P" 
if  J=3;gto  "3P" 

fxd  0;dsp  "Taking  data  on  device  #"  ,D 

?to  "runl" 
mt 

wrt  701  ,"D0 ,2  ,18  ,2  ,0  ,0;WN,20J" 
red  701  ,C 
next  I 
ret 

"print  data  line": 
if  C(I  ,K,5]#-3;gto  +4 

if  rl7=0;fmt  I2x,"-"  ,12x,"-",12x,"-",10x,fz4.0  ,4x, "Missing" 
if  rl7=l:fmt  12x  "-",12x,"-",23x,fz4.0,4x, "Missing" 
wrt  6jC[i  ,K,41;g£o  +12 
if  C[^,1)^9?999<[I,K,2] 


(continue) 


3  94: 

395: 

3%: 

397: 

398: 

399: 

4U0 : 

401: 

402: 

403: 

404: 

405: 

406: 

407: 

408: 

409: 

410: 

411: 

412: 

413: 

414: 

415: 

416: 

417: 

418: 

419: 

420: 

421: 

422: 

423: 

424: 

425: 

426: 

427: 

428: 

429: 

430: 

431: 

432: 

433: 

434: 

435: 

436: 

437: 

438: 

439: 

440: 

441: 

442: 

443: 

444: 

445: 

446: 

447: 

448: 

449: 

450: 

451: 

452: 

453: 

454: 

455: 

456: 

457: 

458: 

459: 

460: 

461: 


fmt  8 ,115.  2  ,£12.0  ,22x,f z4. 0  ,z 

£  mt  9,115.  2,fl2. 0  ,f  14. 3  J8x,fz4.  0  ,z 

if  r  17=1;  wrt  6.8  ,C  [I  ^,1]  jCfl ,K,21  ,C[I  ,K,41 

if  r  17=0; wrt  6.9, C[I  ,K,l]  ,C[I,K,2]  ,C[I  ,K,3j  ,C[I  *  ,4] 

fmt  4x,cl6 

if  (C[l  ,K,5]  +rll)  =-l;wrt  6,  "Possible  Failure" 

if  rll=l;wrt  6, "Verified  Failure" 

if  rl 1=0; wrt  6, "Good  " 

if  r 11=2; wrt  6,"Gocd*  ";cfg  5 

if  rll=-2;wrt  b,"Good**  "  ;cf g  6 

ret 

"Another  Printout": 

ent  "Want  another  printout?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 

if  T$="N";gto  +25 

if  TS#"Y";gto  -2 

sgn(pcs(A$,"01d")  }+rl7 

l-*-rl2-*-rl3;r  l*-rl4;i£  rl>2  ;2-»rl2;2*rl4 

for  L=1  to  rl2 

sfg  5;sfg  6 

if  L=2; 3^rl3;r l>rl4 

qsb  "Print  Heading" 

for  I=rl3  to  rl4 

for  K=1  to  24-8(N>0) 

gsb  "print  data  line" 

next  K 

wtb  6,10 

next  I 

if  flg5;gto  +3 

fmt  /,8x,"*  Data  was  determined  to  be  incorrect  and  was  manually  edited.1 
wrt  6 

if  tlg6:gto  +3 

fmt  8x,  **  Device  was  good  and  removed  ",c8 

wrt  6.A$[21 ,281  ;cfg  6 

if  D=1  end  rl>2 ;wtD  6,12 

next  L 

wtb  6,10 

if  r8=2;wrt  fc.5,F,F+l,12 
gto  -25 
ret  . 

"Record": 

ent  "Do  you  want  to  reaord  data  ?(Y,N)"  ,T$:if  flgl3;cfg  13;gto  -0 

if  T$="N":ent  "Do  you  want  to  retest?(Y,N)"  ,T$[2,2] 

if  TS="NN  ,-gto  "END" 

if  TS="NY"  ;g  to  "FE'fEST" 

if  ro>0;gto  +7 

1+G 

fdf  G;idf  AA,A^\ 

if  A#0;G+l*G;gto  -1 

mrk  l,160:mrk  1,416+ (960-320 (N>0) )r 1 

G»F;  5*X:r  1+Y 

wtb  6,10 

wrt  6.  5  .F.F+1 ,12 

ret  F,A$,B$,X.Y 

ref  F+l,d$,d[*] 

ret 

"Device  Status":  _  , 

ent  "How  many  devices  are  missing?"  ,M;  if  flgl3;cfg  13;gto  -0 

if  M>24-8(N>0)  ;gto  -1 

for  J=1  to  M 

dsp  "Position  of  missing  device  ,J, "?" 

ent  "",rl5;if  flcj.3;cfg  13;gto  -0 

if  rl5>24-8(N>0)  ;gto  -2 

-3-CH  ,rl5  ,5) 

next  J 

ret 

"Last  Year": 
ssc  12:  trk  0 
ldf  Z  ,A$  ,B$  ,X  ,Y 
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(continue) 


463!  St?{3al  (A$?47 ,52) )  +9000)  -A$[47  ,52] 

464:  D$*A$[21,2o] 

466:  pc6(A$  "NPN/lC")-N;dim  C$[5,80)  ,C)rl  ,24-8(N>0)  ,5) 
467:  for  1*1  to  rl 
468:  fxd  0 

469:  gsb  "Device  Status" 

470:  next  I 
471:  for  1=1  to  5 
472:  "  "-C$11,1,801 
473:  next  I 
474:  ret 
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APPENDIX  B 


TEST  PROGRAM  FOR  BIPOLAR  &  CMOS  ICS  &  HYBRID  CIRCUITS 


U:  "LOAD  FUNCTION  KEYS  &  PROGRAM  FOR  MICROCIRCUITS  &  HYBRID  CIRCUITS"  s 
1:  trk  1 
2:  ldk  0 
3:  dim  D$(8]  , 

4:  ent  "Tbday  s  date?  ",D$ 

5:  ref  2 ,D$ 

6:  ldp  1 

Program  #1 

0:  "DATA  TAKER  FOR  BIPOLAR  AND  CMOS  ICS  AND  HYBRID  CIRCUITS  FROM  PANAMA": 
1:  "SEPTEMBER  1979  VERSION": 


2:  dim  A$J68^$[44]  ,X,Y,T$[5]  ,D$[8] 

4:  ldf  2'dS* 

5:  trk  0 

6:  fmt  5,2b,8x  /"This  data  is  stored  on  IC  tape,  file  nos. ",£3.0."  & 
7:  ent  "Do  you  want  instructions? <Y  or  N)",T$;if  flgl3;cfg  13;gco  -i 
8:  if  TS="N" ;gto  +21 
9:  if  T$#"Y" ;gto  -2 
10:  prt  nwhat  option  do" 

11:  prt  "you  want?";spc 
12:  prt  ”0  Take  initial  " 

13:  prt  "  data";spc 

14:  prt  "1  Retake  data";spc 

15:  prt  "2  Print  previous^1 

16:  prt  "  data";spc 

17:  prt  "3  Manually  edit" 

18:  prt  "  incorrect  data' ;spc 
19:  prt  "4  Verify  poss- 
20:  prt  "  ible  failures ";spc  ;spc 
21:  prt  "Do  not  use  " 

22:  prt  "option  0  if  " 

23:  prt  "initial  data  " 

24:  prt  "was  previously  " 

25:  prt  "recorded."  ;spc  ;spc 
26:  prt  "Enter  the  number'^ 

27:  prt  "then  press" 

28:  prt  "  CONTINUE  ":spc  ;spc 

29:  ent  "what  number?"  ,r8; if  flgl3?cfg  ljigto  -0 

30:  dsp  "Set  paper,  then  press  CONTINUE  fstp 


&  ",f3.0,b 
-0 


31:  wtb  6,27 ,84,27,70  ,16,1040  . „  „ 

32:  gto  "lNITIAL";lf  r8>0;gto  "LOAD  PREVIOUS  DATA  ; l f  r8>4jgto  -3 
33:  "INITIAL" : 

34:  gsb  "Enter  ID  Info" 

35:  gsb  "Print  Heading" 

36:  ent  "Is  heading  oorrect?(Y  or  N)",T$ 

37:  it  TS="N";gto  -3 

38:  if  TS#" Y"  ;g  to  -2 

39:  if  r.4<3:gto  +6 

4u:  ell  take  readings  (1,2,0) 

41:  wtb  6,12 

42:  gsb. "Print  Heading" 

43:  ell  'take  readings  (3,rl,0) 

44:  gto  +2 

45:  ell  take  readings  (l,rl,0) 

46:  gsb  "Another  Printout" 

47:  gsb  "Record" 

48:  " END" : 

49:  prt  "To  run  the  "  „ 

50:  prt  "program  again" 

51:  prt  "press  RUtT";spc  ;spc 
52  •  end 

53:  " LOAD  PREVIOUS  DATA": 
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(continue) 


54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7d 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


99 


ent  "First  file  i  of  data",F;if  flgl3;cfg  13;gto  -0 
ldf  F,A$,b$,X,Y 

pos(A$  ."HYBRID"  )*N 

cfita  C$(x.80i  .C|rlf16+8(N>0)  ,4] 

iffr 8^2;'gto  ’’PRINTOUT  PFEVIOUS  DATA" 
if  r  8=3;gto  "EDIT  INCORRECT  DATA" 
if  r  8=4;gto  "VERIFY  FAILURES" 
n  RETEST  *  • 

ent  "Date  of  retest?(06-19-78)”,A$[21,28];if  flgl3;cfg  13;gto  -0 
gsb  "Print  Heading"  ,£  ,,  ,  ...  .  „ 

ent  "Is  heading  oorrect?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  T$="N";gsb  "Enter  ID  Info 
if  T$#"Y"  *qto  -2 

ent  *Efc>w  many  beards  to  be  retested?" ,  r5; if  flgl3;cfg  13;gto  -0 

if  r  5>rl; prt  "Too  many  boards ";spc  ;spc  ;gto  -1 

for  1=1  to  r5 

for  E=1  to  16+8(N>0) 

0-CU^E,4] 

ent  "Board  #  of  retested  beard?" ,T$;i£  flgl3;cfg  13;gto  -0 
(pcs  (B$,T$)  +10)/ll*r6 

it  r b=0;prt  "Wrong  #,  do  over”;spc  ;spc  ;gto  -2 
gsb  "Device  Status" 
next  .1 

ell  take  readings  (r6,r6,l) 


ent  *Is  retested  data  CK?(Y  or  N)",T$;if  flgl3;cfg  13;gto  -0 
if  T$="N";g  to  +4 
if  T$#"Y"  ;gbo  -2 


gto  +9 


ent  "Retest  again?(Y  or  N)",T$;if  flgl3;c£g  13,-gto  -0 
if  T$="N";gto  +3 


if  T5^Y"  ;gto  -2 


;spc 


gto  „ 

prt  "Retest  was  not 
prt  "successful  ";spc  ;spc 
gto  "END" 

prt  "Another  printout" 
prt  "is  reauired  in  ’ 
prt  "order  to  have  a  " 
prt  "complete  record 
prt  "of  all  data.’  ;spc 

_  gsb  "Another  Printout" 

100:  gsb  "Record" 

101:  gto  "END" 

102:  ’'PRINTOUT  PREVIOUS  DATA": 

103:  gsb  "Another  Printout" 

104:  gto  "END" 

106:  ent  "Device  #  to  be  edited?"  ,T$;if  flgl3;cfg  13;gtc  -0 

107:  val(T $l*D 

108:  for  1=1  to  rl 

109:  for  J=1  to  16+8(N>0) 

110:  if  dl,J,3J  #D;gto +26 
111:  gsb  ^Correct  Data" 

112:  gto  +20 
113:  "Correct  Data  : 


,T$ 


114:  dsp  "Correct  value  of  Voff  for  # 
115:  ent  ”",r9;i£  flgl3;cfg  13jgto  -0 
116:  dsp  "Correct  value  of  Vbn  for  #’  ,T$ 


ffi!  pi  13, gto  -0 

119:  fmt  "for  device  ,c5,  :  ,/ 

i  .  _ _ x.  i  r  me 


120:  wrt  16  ,T$ 

‘  ^  ,f7. 


121:  fmt  c6 


2,c3 
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(continue) 


122 

123 

124 

125 

126 

127 

128 
125 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16U 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 
18 
18 
18 

il 


wrt  16  ,"Vof f  -'  ,r9 V  " 
wrt  16, "Von  =" ,rlO ,"  mV" 

«Svi4spc 

ent  "Is  data  now  aorrect?(Y  or  Nr'.TSjif  flgl3;cfg  13;gto  -0 
it  t$="N"  ;g  to  "EDIT  INCORRECT  DATA* 
it  T$#" Y"  ;g  to  -2 

r9-C[I  ,J  ,lT;  r  10*C(I  ,J,2]  ;2-C  [I  ,J,4] 
ret 
"  "-TS 

ent  ftEdit  another  device? (Y  or  N) "  ,T$;if  flgl3;cfg  13;gto  -0 

if  T$="N"  ;gto  +6 

if  TS#" Y"  ;g  to  -2 

4-1;  16+8  (N>0)*J 

next  J 

OG  Xt  X 

gto  "EDIT  INCORRECT  DATA" 
gsb  "Another  Printout" 
gsb  "Record ' 
gto  "END" 

"VERIFY  FAILURES": 
fxd  0 

for  1=1  to  rl 

for  J=1  to  16+8(N>0) 

it  C’Tl  ,J,4]  #-l;gto  +13 

dsp  "Is  dev  ,Ci I . J.3]  *R,  "a  verified  failure?" 
ent  " "  .TS ,  i f  figi3;cfg  l3;gto  -1 
if  TS^Y^l-ClI^Ml.-gto  +10 
it  T$#"N";gto  -5 

dsp  "Is  devioe",R. “being  removed?" 
ent  " " .TS ; i f  flgli;cfg  I3;gto  -1 
if  T$=,f  Y"  ;  -2-C[i,J,4]  ;gto  ?6 
if  TS#"N"  ;gto  -3 

dsp  l,Is  device",R  "to  be  edited?" 
ent  "".TS; if  flglS;cfg  13;gto  -1 
if  T^V-gtO  +2 

it  T5="Y"  ;str  (R) -T$;gsb  "Cbrrect 
next  J 
nc  xt  X 

gsb  "Another  Pr  intout" 
gsb  "Record" 
gto  "END" 

Enter  ID  Info"; 
prt  "Insert  cartridge" 
prt  "with  old  test  " 
prt  "data  into  #1" 
prt  "slot  of  9877A";spc 
prt  "If  no  file  last" 
prt  "year,  enter  0";spc  ;spc 

ent  "Last  year  s  file  #?",z;if  flgl3;cfg  13;gto  -0 
if  Z>0;gsb  "Last  Year" 
it  Z>0;ret 

ent  "Manufacturer?  {3  characters)  ,A$ 
if  (len(AS)-T)  #3;gto  -1 

ent  "Fart  #?  (8  characters)"  ,A$[  6] 
if  (len(AS)-T)  #13;gto  -1 

ent  "Origin?  (4  characters)",A$[15) 
if  (len(AS)-T)  #18;gto  -1 
AS&"  "-AS 

ent  "Cate  of  test?  (01-02-78) "  ,A$[ 21] 
if  (len(A$)*T) #28;gto  -1 
A$& "  Pan  "—AS 

ent  "Panama  Location?  (11  characters)"  ,A$[35] 
if  (len(A$)-T)#45;gto  -I 

ASfc"  "—AS  „ 

:  ent  "#  Of  Previous  hours?", T;if  flgl3;cfg  13;gto  -0 


fata' 
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if  (T+9000*tf)>99000;gto  -1 
fxd  0 

strjH).ASJ47,521 

SSlSj&fflflSf  -  C“S  °r  HffiRID>"-A5(55| 

if  (len(A$)-»T)<56  or  T>66;gto -2 

for  I=T  to  66 

A$&"  "-A$ 

next  I 


(oontinue) 


190: 

191: 

192: 

193: 

194: 

195: 

196: 

197: 

198: 

199: 

200: 

201: 

202: 

203: 

204: 

205: 

206: 

207: 

208: 

209: 

210: 

211: 

212: 

213: 

214: 

215: 

216: 

217: 

218: 

219: 

220: 

221: 

222: 

223: 

224: 

225: 

226: 

227: 

228: 

229: 

230: 

231: 

232: 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

240: 

241: 

242: 

243: 

244: 

245: 

246: 

247: 

248: 

249: 

250: 

251: 

252: 

253: 

254: 

255: 

256: 

257: 


if  r8=0;d im  C${5,80]  ,C[r  1,16+8 (N>0)  ,4] 
for  1=1  to  rl 
fxd  0 

dsp  "First  device  #  for  board  ",i 
ent  ""  ,T;if  figl3;  cfg  13;gto  -1 
str(T)-TS[l,5] 

T$(2,5U*-"-BS[lll-10 ,111-6] 

gsb  "Device  Status" 
next  I 
for  1=1  to  5 
"  "-C$[I  ,1,80] 
next  I 
ret 

"Print  Heading": 
fmt  l,15x, "***** 
wrt  6.1 

fmt  2  ,8x  ,"MAN.  DEVICE 
wrt  6.2 
fmt  8x  ,c66 ,/ 
wrt  6,AS[  1,66] 
fmt  Sx/BOATO:  ",o44,2/ 
wrt  6.BS; if  N>0:wtb  6,27,10 

if  AS [6  /  ,67]  ="Y"  ;fmt  8x  '’’BIAS  IN  THE  FIELD"  ,2/;gto  +2 
fmt  ox  ,  NO  BIAS  IN  THE  £lELD"  ,2/  '  ' 

wrt  6; if  N>0;  wtb  6,27,10 

8x  "V  (V)  v  (mV)  V  =5V  DEVICE"  ,4b 

wr  t  t)  /2a  /  aOo  »u » j 

fmt  9x, "off " ,ilx,"on",9x,  "sipply",4b 
wrt  6,27,86,(5,15  ^  * 

fmt  9x  "V  =5v  V  =0V  R  =5. 6k 

wrt  6,27,86,0,3 


I************* 


TEST  LATA  *****************  ^2/ 

FRDM  TESTED  LOCAL  CD ND ITT CM  HOURS  BQAED 


Kb. 


STATUS", 4b 


WWM.  V  U  .4.  /  .WV  J-J 

fmt  lOx  *in'*,12x,"in",8x,  "L",4b 
wrt  6,27,86,0,11 
wtb  6,27  ,86  ,0  ,16-2(N>0)  ,10 
ret 

"take  readings": 

for  I=pL  to  d2 

if  p3=0;gto  +4 

foe  K=1  to  16+8(N>0) 

if  C{I  ,K  ,4]  #-3;  0-*C [I  ,K  ,4 ] 

next  K 

fmt 

ss  i  ■■§  i  t  i  -1  -1  -1  m 

wrt  701 ,  "DO  ,2  ,20  ,1 ,0;  WN  ,20;  DO, 2 ,22 ,1 ,0 ; WN,26 !" 
red  701/: 

ifjpcs^$,"CM>s")>0;wrt  701,"DO,2  ,28,1 ,0;WN,20!";red  701,C 

dsp  "Insert  beard  ",val("  "&B$ [111-10,1 11-7]  )*D 
stp 
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'I 


(continue) 

258:  wrt  701  ,"FO ,2  ,1 ,1 ,14;WN ,20;DO,2 ,18 ,2  ,1 ,0;WN,201"  ;red  701,C 
259:  1  : 

260:  clr  702;rem  702;£lt  6 
261:  wtb  702,"F1VKT0S2D?" 

262:  red  702,C[I  ,K,J] 

26  3:  gto  "run" 

264 :  "  2"  * 

265:  wrt‘701,"DO,2,24.1,l;WN,20!";red  701, C 
26  6:  wtb  702,"F1\JK^CS2D*, 

267:  red  702,C[I  ,K,J] 

268:  "run"; 

269:  D(J=3)+((J=1)+10~3(J=2)  )CfI  ,K.  Jl+Cfl  ,K.J1 

270:  if  J=2  and  A$f68.68]=HL‘,;C[I  ,K  ,1]+T;  .06lC[I  £,2)  -C[I  *,1]  ;10001VC[I  ,K,2] 
271:  if  C[I  ,K,4]=-3;gto  +2 

272:  if  J=2  and  C  [ I  ,R.1]<1.5  c*  C (I  ,K,1]  >5. 1  or  C[I  *,2]  >750;-l-C[I  *,4] 

273:  if  J=3;gsb  "print  data  line 


»  X'  U  '  f  t  KJ  '  »U  »  U 

277:  if  J=1  or  J=2;gto  +12 

278:  if  N=0;if  B=2  or  B=5  or  B=8  or  B=ll  or  B=14  or  B=17  or  B=20  or  B=23;B+1-B 

279:  if  N>0;if  sgn((-l)  K)=1;D-.9*D 

280:  if  B<=l5:15-B-V,-gto +4 

281:  if  B>15;3l-B-V 

282:  fmt 

283:  wrt  701  ,"DO,2  .18 ,2  ,0  ,1; WN,20  J"  ;red  701  £ 

284:  fmt 

285:  wrt  701  ,"D0,2  ,24,1 ,0;rtN  ,20!" 

286:  red  701, C 

287:  wrt  701  ,"FO,2  ,1 ,1"  ,V,"  ;WN  ,201" 

288:  red  701 ,C 

289:  J+l-d 

290:  if  J=l;gto  "1" 

291:  if  J=2;gto  "2" 

292:  if  J=3;fxd  l;asp  "Taking  data  on  device  #"  ,D 
293:  gto  "run" 

294:  fmt 

295:  wrt  701 , "D0,2  ,18 ,2  ,0  ,0 ;vU  ,20!"  ;red  701,C 
296:  next  I 
297 :  ret 

29b:  "print  data  line": 

299:  if  C[I  ,K,3]=0:gto  +15 
300:  if  C[I  ,K,4]#-3;gto +4 

301:  if  N>Q;fmt  12x,  .13x,"-".22x.fz6.1,4x,'"Missing";gto +2 

302:  fmt  12x  ,13x,"-,*,22x,£zi.0,4x,  "Missing" 

303:  wrt  6,c[l  ,K,3);gto  +11 
304:  if  N>0:gto  +2 

305:  fmt  f!5.3,f  14.  2,20x,£ z4.0  ,z;gto  +2 
306:  fmt  £15. 3, £14.  2,20x,f z6. 1 ,z 
307:  wrt  6,C(I  ,K,1)  ,C(I  *,2)  ,C[I,K,3] 

308:  fmt  4x.cl6 

309:  if  (Cfl  J(,4] ♦rll)  =-l:wrt  6, "Possible  Failure" 

310:  if  rll=l;wrt  6, "Verified  Failure" 

311:  if  rll=0; wrt  6, "Good 
312:  it  r  11=  2; wrt  6, "Good*  ":cfg  5 

313:  if  rU=-2;wrt  6, "Good**  * ;crg  6 

314:  ret 

315:  "Another  Printout": 

316:  ent  "Want  another  printout?(Y  or  N)",T$;if  flgl3?cfg  13;gto  -0 
317:  if  T$="N";gto  +24 
318:  it  TS§"  r  ;g  to  -2 

319:  I>rl2*rl3;r l*rl4;  if  rl>2;2*rl2;  2>rl4 

320:  for  L=1  to  rl2 

321:  sfg  5;sfg  6 

322:  if  L=2;3-rl3;rl*rl4 

323:  gsb  "Print  Heading" 

324:  tor  I=rl3  to  rl4 

325:  it  N>0; f or  K=1  to  24 ;g to +2 
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(continue) 


for  K=1  to  16 

gsb  "print  data  line" 

next  R 

wtb  6,10 

next  I 

if  flq5;gto  +3 

fmt  2/,8x,"*  Data  was  determined  to  be  incorrect  and  was  manually  edited* 
wrt  6 

if  tlg6;gto  +3 

fmt  /,8x,"**  Device  was  good  and  removed  ",c8 
wrt  6.A$(21,28hcfg  6 
if  L=1  and  rl>2;wtb  6,12 
next  L 

if  r8=2;wrt  6.5,10,10,F,F+1,12 

gto  -24 

ret 

*•  •*  • 

ent  "Do  you  want  to  record  data?(Y,N)"  ,T$;if  flgl3:cfg  13;gto  -0 

if  T$="N":ent  "Do  you  want  to  retest?  (Y,N)"  ,T$(2,2] 

if  T^"fW*;gto  "END" 

if  T$="NY”  ;g  to  "HETEST" 

if  r8>0;gto  +6 

1-G 

fdf  G;idf  A.A,A,A 

if  AfO;G+l-G;gto  -1 

mrk  1 ,160;  mr k  l,416+( 512+256 (N>0)  )rl 

G*Pj5*XjrM 

wrt  6.  5 ,10 ,10  ,F,F+1 ,12 

ref  F,A$,B$,X,Y 

ref  F+l,d$,dl*J 

ret 

**  Devi  oe  Stci  tus  M  • 

dsp  "I  of  missira  dev.  f/BGAHD"  ,B$  1 111-10 ,111-7] 
ent  ""  ,M:  if  flgl3;cfg  13;gto  -1 
if  M>16+8(N>0)  ;gto  -1 
for  J*1  to  M 

dsp  "Rssition  of  missing  device", J, "?" 

ent  "",rl5;if  flgl3;cfg  13;gto  -0 

if  r  15>16+B(N>0)  ;gto  -2 

if  N=0:-3-CU  ,rl5,4];gto  +5 

rl5*2-i-rl8 

-3-CjI  ,rl8,4] 

r 18+i-rl8 

-3*C(I  ,rl8,4] 

next  J 

ret 

"Last  Year": 
ssc  12;trk  0 
ldf  Z,A$,B$,X,Y 
ssc  l;trk  0 

str  (val  (A$(  47 ,52] )  +9000)  -A$[47 ,52] 

D$-A${21 ,28] 

Y-rl 

pos(A$/ HYBRID"  )*N; dim  C$[5,80]  ,C[rl  ,16+8(N>0)  ,4] 
for  1*1  to  rl 
fxd  0 

gsb  "Device  Status" 

next  I 

tor  1=1  to  5 

"  "-C$11,1,80] 

next  I 

ret 
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APPENDIX  C 


DATA  SUMARY  PROGRAM  FOR  TRANSISTORS 


0 :  "EDIT  CONTROL  -  Panama  Data  -  6  Sept  1979": 

Is  "Merges  new  (1978)  test  data  with  old  s urinary  data": 

2:  “permits  editing  of  data,  recalculates  failure  rate,  prints  new 
3:  “suimary  sheets  and  records  all  data  on  new  cartr  idge": 

4:  prt  "Insert  cartridge" 

5:  prt  "with  old" 

6:  prt  "summary  data" 

7:  prt  "into  left  drive;" 

8:  prt  "fresh  cartridge" 

9:  prt  "into  right  drive" 

10:  spc 

11:  prt  "Insert  cartridge" 

12:  prt  "with  new  test" 

13:  prt  "data  into  #1" 

14:  prt  "slot  of  98  7  7A" 

15:  spc 

16:  prt  "'Terminal  Setup:" 

17:  prt  "  REMOTE  -  Down" 

Id:  prt  "  AUTO  LF  -  Down" 

19:  prt  "  DUPLEX  -  Full" 

20:  prt  "  PARITY  -  None” 

21:  prt  "  BAUD  RATE  -2400" 

22:  prt  "  Other  keys  -  up" 

23:  spc  ;spc 

24:  ent  '’File  #  of  Old  Summary  Data",  E 
25:  ssc  1 
26:  ref  3,E 
27:  ldp  1 

Program  #1 

0:  ssc  ljtrk  0 
1:  ldf  3E 
2:  ldk  2 
3*  wtc  10  32 

4:  dim  AS f 681  ,B$(44]  ,X,Y,L$[70]  ,T$[70]  ,N$[70]  ,S$[12]  £$[4]  ,D$[4] 

5:  dim  QSi4] 

6:  fxd  0 


wtb  li^2?  ,1§1  S  ,27  ,"&p"&E$&"plu2C" 
wtb  10.27  "&pfs3ciF" 
wtb  10 ,2  /  ,65 


wrt  10, char  (30) 
wtb  10,27.104 
gsb  "READ" 

if  pos(N$,"BOATO")=0:gto  -1 

wtb  10,27,70  ,27,65.27.65  „  „  „ 

dsp  "New  <3ata  for  *,N$[pc6(N$,"B")  ,pcs(N$,"-").-l]  ,"?" 

ent  "".Q§;if  flgl3;cfg  13;gto  -1 


it  OS*  Y  ;g to  -3 

ent  *File  #  of  New  Data?", F; if  flgl3;cfg  13;gto  -K) 

24>Z;ssc  12;trk  0 
ldf  F,A$.B$.X,Y  „ 
if  pcs  (AS  [501  ,"  /  )  >0;16-»Z 

if  pos(N$,B$i6,8)  )=0;prt  "Wrong  file";prt  "Try  again"; spc  ;spc  ;gto -4 

dim  C$rx,80)  ^[Y,Z,5J 

"LOAD'*: 

ldf  F+l  £$£[*) 
for  1*1  to  Y 
for  J*1  to  Z 

if  t=-3;  l+r3*r3 
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(continue) 


L-3]&","&S$[L-2,L]-S$ 
$  [L— 5]  ♦S$ 


it  C=-2:l+r4+r4 

it  C=l;l+rl*rl 

if  OO  or  C=2;l+c2*r2 

next  J 

next  I 

fxd  0 

"  *  "  SA  $  [  20  ,2  9]  S.  "* "  &A $  ( 4  7 ,4  9  ]  &  "  ,  "& A$  [  50 ,5  3]  S. "  *"  *  L$ 
if  (rl+r2+r4-*-r7)  >9;  L$&str  (r7)  ♦L$ 
if  r7<10?L$&"  "&str(r7)*L$ 

L§&"  *"-L$ 
gsb  "FEAD'1 
gsb  "H" 

8000(rl+r2+r4)+H-H 
ii  "♦T$ 

str  (H)-*S$;S$[  2]-*S$ 

if  (len(SS)-L)>3;S$[l,L-3]&"/'&S$  L-2,L]-S$ 
if  L>6;S$Tl  ,L-61  &"  ,"&£3$  [L-5]  ♦S$ 
ssyrs[il-len(s$  ,10] 

L$ST$&"  *  "*L$ 

str  (rl+val(N$l40.41]  )-*r5)  -*-S$ 

wtb  10,27,76 
wrt  10 ,L$ 
wrt  10  ,char  (30) 
wtb  10,27.104 
gsb  "FftN  EDIT" 

"F  RATE'*: 
gsb  "READ" 

if  pos(NS  "TESTING"  )>0;sfg  l;wtb  10,27  .66;gsb  "FAN  EDIT" 
if  num(N$fl,l])=30;sfg  l;gsb  "MAN  EDIT" 
if  flgl;qto  "RECDHO" 
if  N$ri,I]#"*";gto  -4 
gsb  H" 

val(N$[40,41])-N 


:  (H)-*S$;S$[  2J-*S$ 

( len ( S  S )  *L )  >3 ;  S  $  [  1 ,L -3  &  " 
L>6:S$Tl ,L-61  &"  [L-5] 

►TS[il-len(S$)  ,1(3] 


58:  if  H=0;  0-*r6:g£o +3 

i9:  if  N=0; 2V3*10  q/H+r§;gto  +2 

70:  (3+N)*10  5/H+2.3*10  (-3)*log(N)-r6 

71:  fxd  2 

72:  str  (r  6)-*-N$[47  ,51] 

73:  fxd  0 

74:  str (N)-*6S; if  N<9;"  "S>S$-»S$;S§*N$[ 39,41] 
75:  wtb  10,27,65 
76:  wrt  10, N$ 

77:  gto  "F  RATE" 

78:  "FEAD" : 

79:  wtb  10,27,100,17 

30:  fmt 

31:  red  10 

32:  ret 

83:  "H": 

85:  if  N$ [29 ,29]="  ,"  ;  10^6  val  (N$[28,281  )*H 
86:  if  N$f33/33i=",";10  3val(N5[30,32])+H*H 
B7:  val(N$(34,36])+«-H 
88:  ret 

89:  "MAN  EDIT": 

90:  wtb  10  ,27  ,104. *27  ,103, 

91:  dsp  "Release  REMOTE  key" 

92:  stp 

93:  dsp  "Edit  data" 

94:  stp 

95:  dsp  "Depress  REMOTE  key" 

96 :  stp 

97:  wtc  10 ,32; wait  500 
98:  wtb  10,27,104 
99:  ret 
100:  "RECDRO": 
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ent  "File  #  for  New  Summary  Data?",D 

str(D)  »D$;D$]2]-0$ 

wtb  10  ,27,104 

wtb  10  ,27  ,"&p"&DS&  "p2u2C" 

wtb  10 ,27 &p3s2aM" 

wtb  10  ,27  ,"sJ)i2u5Q" 

dsp  "Press  \_ONT  <  when  cursor  steps" 
wtE  10,27,104,27,76 

wrt  10,"  **********  STATISTICAL  SUhMARY  *********** 

wtb  10  ,27  ,76  ,27  .76  ,27  ,76  ,27 ,66 ,27  .66 

wrt  10,"  MANUF.  PART  NO.  TYPE" 

wtb  10  ,27  .80  ,27 ,80  ,27  ,  66  ,27  ,76 
gsb  "H^AD1' 

if  pos (N$ , "BOARD" )  =0;g  to  -1 
wtb  10  ,27  ,76  ,27  .66  ,27  ,76 
wrt  10,"  File  Nd.  -  ”,DS 

wrt  10  ,"*  *  *  *  *  *  *« 

wrt  10,"*  READ  CUT  *  HOURS  *  NO . *ACCUMJLATED*  NO  *  FAIL.  RATE  *" 
wrt  10,"*  DATE  *  ON  *  OF  *  DEVICE  *  OF  *  *" 

wrt  10,"*  *  TEST  *DEV.*  HOURS  *FAIL*  %  per  1000  *" 

wrt  10,"*  MD-OAY-YR*  *  *  *  *  6ourS  *'• 

wrt  10,"*  *  *  *  *  *  *« 

cfg  1 

wrt  10  ,M ********************************************************* 

dsp  "INSERT  PAPER" 

10  .27  .104  ,27  1,76 ,32  ,32  ,32 ,32 ,32 ,32 ,2 7 ,89 ,27 ,77  ,27 ,90 
wtb  10,27,  &P3s4cM 
ssc  l;trk  0: E+l*fi;  ref  3  ,E 
dsp  "Press  CONI'  ,  when  type,  steps" 
stp 

wtb  10,27,71 

wtb  10  ,27  ,89,12  ,27 .90  ,27 ,68 ,27 ,68,27 ,80,27 ,80 ,27 ,71 ,27  ,"6.p3s4dB" 
wtb  10  ,27 ,89 ,27  ,69,27 ,90 ',27  *68 ,27 ,68 ,27  Jto  ,27  ;80',27 ,71  ,'27V*S.p394dB" 
ldp  1 


APPENDIX  D 


DATA  SUMEARY  PROGRAM  FOR  NPN  TRANSISTOR  ARRAY  ICS 


0:  "EDIT  CONTROL  -  Panama  Lata  -  6  Sept  1979": 
i:  "Merges  new  (1978)  test  data  with  old  sunmary  data": 

2:  "permits  editing  of  data,  recalculates  failure  rate,  prints  new": 
3:  "sunmary  sheets  and  records  all  data  on  new  cartridge": 

4:  prt  "Insert  cartridge" 

5:  prt  “with  old" 

6:  prt  "summary  data" 

7:  prt  "into  left  drive;" 

8:  prt  "fresh  cartridge" 

9:  prt  "into  right  drive" 

10:  spc 

11:  prt  "Insert  cartridge" 

12:  prt  "with  new  test" 

13:  prt  "data  into  #1" 

14:  prt  "slot  of  9877A" 

15:  spc 

16:  prt  "Iferminal  Setup:" 

17:  prt  "  H3M3TE  -  Down" 

18:  prt  "  AUTO  IF  -  Down" 

19:  prt  "  DUPLEX  -  Full" 

20:  prt  "  PARITY  -  None" 

21:  prt  "  BAUD  RATE  -2400" 

22:  prt  "  Other  keys  -  up" 

23:  spc  :spc 

24:  prt  "If  no  summary"jprt  "exists,  enter  0";spc  :spc 
25:  ent  "File  #  of  Ola  Summary  Data.E 
26:  ssc  1 

27:  if  E>U:rcf  3,E;  ldp  1 
28:  dim  F,S$[12) 

29:  ent  "Late  of  Initial  Tests?", S$:if  flgl3;cfg  13;gto  -0 
30:  ent  "File  #  of  New  Lata?",F;if  flgL3;cfg  13;gto  -0 
31:  ref  3  ,F  ,S$ 

32 :  ldp  4 

Program  #1 

U :  ssc  l;trk  0 
1:  ldf  3,E 
2:  ldk  2 
3  *  wtc  XQ  32 

4:  dim  AS [68]  ,B$f44]  ,X,Y,L$f70}  ,T$[70)  ,N$[70)  ,S$[12J  £$[4] 

5:  dim  Q$[4] 

6:  fxd  0 

7:  str  (E)-*E$;E$|21-*E$ 

8:  wtb  10  ,27 ,104 ,27 ,74 ,27  ,"&p"&E$&  "plu2C" 

9:  wtb  10  .27  "&pfs3clF" 

10:  wtb  10,27,65 
11:  wrt  10  .char (30) 

12:  wtb  10,27,104 
13:  gsb  "READ" 

14:  if  pos(NS,"BOAFD"  )=0:gto -1 
15:  wtb  10,27,70  ,27,65.27^65 

16:  dsp  "New  data  for/' 8451  pos (N$,"B")  ,pos(N -1] 

17:  ent  "",Q$;if  flgl3;cfg  13;gto  -1 
18:  if  Q$*"N";gsb  "HAN  EDIT" 

19:  if  QS*"N";gto  "F  RATE" 


20:  if  QS#"Y"  ;g  to  -3 
21:  ent  "File  i  of  New  Data?",F;if  flgl3;cfg  13;gto  +0 
22:  A^issc  12;  0 

24:  if  pcs(N$j.B$l6t8) }  =0;prt  "Wrong  file";prt  "Try  aga: 


I  MTlUY  IOJ*  .  « 

"  mm"  • 


25:  dim  C$[X,80  £ V 
26:  "  LOAD" :  r<ti 

27:  ldf  F+l  £$  »C(  *| 


rt  "Wrong  file";prt  "Try  again";spc  ;spc  ;gto -3 
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(continue) 


2d: 
29: 
3u : 
Ji: 
32: 
33: 
34: 
35: 
36: 
37: 
3d: 
39: 
40: 
41: 
42: 
43: 
44: 
45: 
46: 
47: 
4d : 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
5d: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90: 
91: 
92: 
93: 
94: 
95: 


lot  1=1  to  Y 

tor  J=1  to  Z 

CU,J,5)-C 

iL  O-ljl+ri^rl 

ll  C=-2:l+r4-»r4 

H  C=l;I+rl-*-rl 

it  C=0  or  C=2;l+r2*r2 

next  J 

next  I 

fxa  o 

" *"&A$ [20  .29]  S"*“SiA$[47  ,49]  S","&A$[50  ,53]  &  "*"&str  (rl+r2+r4) 
qsb  “HSALr 
gsb  "H" 

8000 (r 1+  r2+  r4 ) +H+H 
"  ••  *a's 

str  (H)+S$;S$[2]  -»6$ 

it  (len(SS)*L)  >3;S$[1  ,L-3]  &"  ,  "&S$[L-2,L]-»S$ 
ll  L>6:S$[1  ,L-6]  &"  ,&Sj$[L-5}  +S$ 

S$vrS[ll-len(S$  ,l6] 


►t5)  ♦S$ 
►L$ 


L$&T$&"  * 

str  (rl+val(N$[4Q,41]  )*r5 
if  len(SS)  =3;S$ [  *]  -*■£>$ 

LS&SS&*  *  st 

wtb  10,27,76 
wrt  10 ,L$ 
wrt  10  , char (30) 
wtb  10,27,104 
USb  "MAN  EDIT" 

RAi'E " : 
gsb  "MiAD" 

if  pos (US ."TESTING" ) >0; sfg  1,-wtb  10,27. 66;gsb  "WAN  EDIT" 
it  num (nS[1  ,1]  )=3Q;sfg  l;gsb  "MAN  EDIT" 
if  flql;qto  "rtOORD" 
if  NS?l,I]r*";gto  -4 
qSD  If 

val  (N$[40  ,41] ) 

if  U=0;  0*r6;gto  +3 

if  N=Q;  2 v3* lO  5/H-r^;gto  +2 

( 3+N )  *  10  5/H+2. 3*10  (-3)  *  log(N)  *r6 

Ixd  2 

str  (r  6)  *N$[47  ,51] 

Ixd  0 

str  (N)  -*6$;  if  N<9;"  "«S$-S$;S$*N$139,41} 
wtb  10,27,65 
wrt  10  ,N$ 
qto  "F  HATE" 

"HEAD" : 

wtb  10,27  ,100,17 
frnt 

red  10,N$ 

ret 

"H": 

0-*ll 

it  NS  (29 ,291  *>"  ,";10;6val(NS[28,281  )+H 
if  NS  [33  .331="  30  3  val  (NS  130,32]  )+H»H 

val  (N & ]  34 , 36] )  +H-*H 
ret 

"MAN  EDIT": 

wtb  10  ,27  ,104  .27,103, 

dsp  "release  REMOTE  key" 

stp 

dsp  "Edit  data" 
stp 

dsp  "Depress  'REMOTE '  key" 
stp 

wtc  10, 32; wait  500 
wtb  10,27,104 
ret 
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*”*L$ 


(coat  inue) 

9o:  "REGJR3": 

97:  wtb  10,27,104 

96:  wtb  10  ,27  ,"&p"SiE$&  "p2u2C" 

99:  wtb  10.27"S,p3s2dM" 

100:  wtb  lO,27,"&b2u5CH 

101:  da>  "Press  CONT'<  when  cursor  steps" 

102:  stp 

103:  wtb  10,27,104,27,76 

104:  wrt  10,"  t*********  STATISTICAL  SUMMARY  *********** 

105:  wtb  10,27,76  ,27.76,27,76  ,27,66,27,66 

106:  wrt  10,"  WMF.  PART  NO.  TyPE" 

107:  wtb  10,27,80,27,80,27,66,27,76 
108:  gsb  "FEADrf 

109:  if  pos (N 5 ," BOAR)"  )  =0; g to  -1 
110:  wtb  10,27,76,27,66  ,27,76 
111:  wrt  10,"  File  to.  -  "  E$ 

112:  wtb  10  ,27,76  ,27,76  ,27  ,66,27  ,76  ,27 ,76  ,27  ,76  .27 ,76  ,27 ,76  ,27  ,76  ,27  ,76 
113*  wrt  10  ”*•************** J*****J**^**»********************»**w**k M 
114:  wrt  10',n*  *  *  *  *  *  *" 

115:  wrt  10,"*  READ  OUT  *  HOURS  *  NO. *ACCUMJLAT£D*  NO  *  FAIL.  RATE  *" 
116:  wrt  10,"*  DATE  *  ON  *  OF  *  DEVICE  *  OF  *  *" 

117:  wrt  10,"*  *  TEST  *DEV.*  HOURS  *FAIL*  %  per  1000  *" 

118:  wrt  10,"*  M3-OAY-YR*  *  *  *  *  Hours  *" 

119:  wrt  10,"*  *  *  *  *  *  *" 

120:  cfg  1 

121:  wrt  10  "********************************************************" 

122:  dsp  "INSERT  PAPER" 

123:  stp 

124:  wtb  10  ,27 ,104 ,27 ,76  ,32 ,32  ,32,32,32 ,32 ,27 ,39,27 ,77 ,27 ,90 
125:  wtb  10  ,27 ^"&p3s4cM" 

126:  ssc  l;trk  0;E+l-*£;rcf  3  ,E 

127:  dsp  "Press  CONT  ,  when  type,  steps" 

128:  stp 

129:  wtb  10,27,71 

130:  wtb  10 ,27 ,89 ,12  ,27 ,90  ,27 ,68 ,27  ,68,27 ,80 ,27  ,80 ,27 ,71 ,27  ,Mi,P3s4dB" 
131:  wtb  10  ,27  ,89 ,27  ,69 ,27 ,90  ,27  ,68  ,27 ,6  8 ,27  ,80  ,27 ,80 , 21 ,11 ,27 ,  "&p3sldB" 
132:  ldp  1 

Program  #4 


ssc  l;trk  0 
ldk  2 
wtc  10  ,32 

dim  AS [68]  ,B$[441  ,X,Y ,L$[70]  ,T$[70)  ,N$[70]  ,E$[4] 

is 

fxd  0 
E-F 

16+Z;ssc  12;  trk  0 
ldf  F-A$,B$.X,Y 
:  dim  C$[x,80]  ,C[Y,16 ,5] 

:  A$[34  .45f*T$ 

:  if  T$  fl  ,1] -  ";T$f21*T$; 

:  fmt  1.4x,c3  ,17x  ,a8  ,17x,c 


to  -0 


wrt  io * " ,A$  1  *te!t  'cdn6it1on^6-]  "&t$& • 

wrt  10,"  "S.  "PACKAGE 

wrt  10,"  "& "CONSTRUCTION 

wrt  10,"  "&  "COMMENTS 

wrt  10,"  "&  "BOARD  "&B$ 

wrt  10,"*  ",S$,"  *  0  *"  ,str  (r7 )  ,"  * 

"LOAD": 

ldf  F+l  ,C$  ,C  (*] 
for  1=1  to  Y 
for  J=1  to  Z 
C[I,J,5]C 
if  d=-3;  l+r3*r3 
if  C=-2:l+r4+r4 
if  C=l;l+rl-»rl 


PAN  APR" 


0  *  0  * 


*.00  % 
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(continue) 


it  OO  or  C=2;l+r2-*-r2 
next  J 
next  I 

" * ■  SA $  [  20  ,2  9]  &  “ *"&A$  ( 4  7  ,4  9  ]  &" ,  "&A$  ( 50  ,5 3)  &  &s tr  (r  1+  r2+  r4)  & ' 

gsb  "REA IT 
gsb  "H" 

8000(rl+r2+r4)+H-*H 

str  (H)-»S$;S$f2J -*S$ 

^  *L)>3;S$[1.L-3H"."&S$[L-2,L]*S$ 

«S$ 


'uy/  uyi  4.1  'uv  V 

if  (len(S$)^L)>3;S$[lJL-3]8."  ,"6 
it  L>6:S$Tl  ,L-6)  &"  ,"&S$[L-5]  ^S* 


29 
3U 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63: _ - 

64:  fxd  0 
65:  str(N)*S$;i£  N<9; " 
66:  wtb  10,27,65 
67:  wrt  10,N§ 

68:  qto  "F  BATE" 

69:  "BEAD"  : 

70:  wtb  10,27,100,17 
71:  fmt 


*"♦15$ 


L$&T$&"  *  "♦Lt 
str  (rl+val(N$T40 ,41)  )*r5)  ♦£$ 
if  len(S$)=3;S$(2]*£$ 

L$&S$& *  *  %  *m+L$ 

wtb  10,27,76 

wrt  10 ,L$ 

wrt  10  ,cnar (30) 

wtb  10,27,104 

gsb  "MftN  EDIT" 

"F  RATE" : 
qsb  "FEAD" 

it  pos(N$  ."TESTING"  )>0;sfg  l;wtb  10 ,27  ,66;gsb  "MVN  EDIT" 
if  num(N$(l,l])=30;sfg  l«sb  "MftN  EDIT* 
if  flgl;gto  "RECORD" 
if  N$[l,I]#"*";gtO  -4 
gsb  "if 

val  (NS  [40, 41]  )*N 

if  ri=0;  (F*-r6:q£o  +3 

if  N=0: 2*3*10  5/H-r§;gto  +2 

^  3+d  )  *  10 5/H +2.3*10  (-3)  *log  (N)>r6 

str  (r  6)+N$[47 ,51] 

"sS$-S$;S$>N$[39,4aj 


72: 

red  10  ,N$ 

73: 

ret 

74: 

"H": 

75: 

0-H 

76: 

if  N$ 

29, 

77: 

if  N$ 

33. 

78: 

val (N; 

34 

5(28  ,28]  )*H 
5(30 ,32])+H*H 


' ," ;  10*6  val  (N! 

" ,"  ;  10  3  val  (N! 

J4H+H 

79:  ret 
80:  "FftN  EDIT": 

81:  wtb  10 ,27 ,104 ,27 ,103  , 

82:  dsp  "Release  FEMDTE  key" 

63:  stp 

84:  dsp  "Edit  data 
85:  stp 

86:  dsp  "Depress  'REM3TE  key" 

87:  stp 

88:  wtc  10,32;wait  500 
89:  wtb  10,27,104 
90:  ret 
91:  "RECOfO": 

93:  wtb  10',27'||&p"«iE$S."p2u2C" 

95:  wS  lo^-JSSc  .  ,  „ 

96:  dsp  "Press  53 WT  <  when  curscr  steps" 
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(continue) 

97:  stp 

96:  wtb  10,27,104,27.76 

99:  wrt  10."  i*********  STATISTICAL  SUMMARY  *********** 

100:  wtb  10,27,76,27.76,27,76,27,66,27.66 

101:  wrt  10,"  NANUF.  PART  NO.  TYPE” 

102:  wtb  10,27,80,27,80,27  ,  66,27,76 
103:  gsb  "i^AD,f 

104:  if  pos(N$,"BQAFD"  )=G;gto  -1 
105:  wtb  ID  ,27,76  ,27,66  ,2  / ,76 
106:  wrt  10,"  File  No.  -  "  E$ 

107:  wtb  10  ,27 ,76  ,27 ,76  ,27  ,66  ,27 ,76  .27  ,76  ,27  .76,27 ,76  ,27,76 ,27 ,76  ,27 ,76 

109:  wrt  10'"*  *  *  *  *  *  *" 

110:  wrt  10,"*  READ  CUT  *  HOURS  *  NO .  *A  CCU  MJ LATED *  NO  *  FAIL.  RATE  *" 

111:  wrt  10,"*  DATE  *  ON  *  OF  *  DEVICE  *  OF  *  *" 

112:  wrt  10,"*  *  TEST  *DEV.*  HOURS  *FAIL*  %  per  1000  *" 

113:  wrt  10,"*  MD-OAY-YR*  *  *  *  *  Hours  *" 

114:  wrt  10,"*  *  *  *  *  *  *" 

115:  cfg  1 

116*  wrt  10  "********************************************************* 

117:  dsp  "INSERT  PAPER" 

118:  stp 

119:  wtb  10,27,104,27,76,32,32,32,32,32,32,27,89,27,77,27,90 
120:  wtb  10,27,"&pis4cM" 

121:  ssc  l;trk  0;E+l-*E;rcf  3,E 

12  2:  dsp  "Press  CONT when  type,  stops" 

123:  stp 

124:  wtb  10,27,71 

12 5 :  wtb  10  ,27  ,89 ,12  ,2  7 ,90  ,2  7 ,6 8 ,2 7 ,6 8 ,2 7 ,80 ,2 7 ,80 ,2 7 ,71 ,2 7 , ”&p3s4 dB" 
126:  wtb  10 ,27  ,89,27 ,69,27 ,90  ,27  ,68,27 ,68 ,27 ,80  ,27  ,80  ,27 ,71  ,277^394(36" 
127:  ldp  4 
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APPENDIX  E 


DATA  SUMMARY  PROGRAM  FOR  BIPOLAR  &  CMOS  ICS  &  HYBRID  CIRCUITS 


0: 

1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


"EDIT  CDNTRDL  -  Panama  Data  6  Sept  1979" : 

"Merges  new  (1978)  test  data  with  old  summary  data": 

'  permits  editing  of  data,  recalculates  failure  rate,  prints  new" 
summary  sheets  and  records  all  data  on  new  cartridge": 
prt  "insert  cartridge" 
prt  "with  old" 
prt  "summary  data” 
prt  "into  left  drive;" 
ort  "tresh  cartridge 
prt  "into  right  drive" 
spc 

prt  "insert  cartridge" 
prt  “with  new  test" 
prt  "data  into  #1" 
prt  "slot  of  9877A" 
spc 

prt  "Terminal  Setup:" 


FEWDTE  -  Down" 

"  AUTO  LF  -  Down" 

"  DUPLEX  -  Full" 

"  PARITY  -  None" 

"  BAUD  RATE  -2400" 
"  Other  keys  -  up" 
;.spc 


prt 

prt 
prt 
prt 
prt 
prt 
spc 
prt 
ent 
ssc 

if  E>0:rcf  3,E;ldp  1 
dim  f4$(12^ 

ent  "Date  of  Initial  Tests ?",S$ 

ent  "File  #  of  New  Data?",F;if  flgl3;cfg  13;gto  -0 

r  c£  3  rF  rS$ 

ldp  5 


'If  no  summary";prt  "exists,  enter  0";spc  :spc 
"File  *  of  Old  Nummary  Data*,E 


Program  #1 


0: 

1: 

2: 

3: 

4: 

5: 

6: 

7: 

8: 

9: 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


ssc  l;trk  0 
ldf  3,E 
ldk  2 
wtc  10,32 


dim  AS (68]  ,8$[44]  ,X,Y,L${70]  ,T$[70]  ,N${70]  ,S$[12]  ,E$[4J  f4J 
dim  0$  [4] 
fxd  0 

str  (E )-*£$;  ESI  21  -*E$ 

wtb  10  ,27  ,104,27  ,74 ,27  ,"«,p"&E$S"pl  i2C" 
wtb  10  ,2 7 & pf  s3ciF" 
wtb  10,27,65 
:  wrt  10,cnar(30) 

:  wtb  10,27,104 
gsb  "fEAD" 

:  if  pos(N$  ,"OAPD"  )  =0:g  to  -1 
wtb  10  ,27 ,70  ,27 ,65  ,27,65 

ds?  "New  data  for  \N$[pcs(N$,"B")  ,pos (N -1] 

:  ent  "".Q$;if  flgl3;cfg  13;gto  -1 

:  if  0S=’fN,T;gsb  "RAN  EDIT" 

:  if  t$=“N";gto  "F  RATE" 

:  if  oS#"Y";gto  -3 

:  ent  ''File  f  of  New  Data?", F; if  flgl3;cfg  13;gto  +0 
:  16-2;ssc  12;trk  0 
:  ldf  FAS/US.X.Y 

;  £Ue  !ptt  'rcy  a9ain' 

•  "LOAD'1: 


?spc  ;spc  ;gto  -3 
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(continue) 


27: 
2b: 
29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41: 
4  2: 
43: 
44: 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
b7: 
68: 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90: 
91: 
92: 
93: 
94: 


ldl  F+l  £$  ,C[*] 

tor  1=1  to  V 

for  J=1  to  2 

CJI,J,4]*C 

if  C=-3;  l+r3-*-r3 

if  0-2:  l+r4-»r4 

if  C=l;l+rl-rl 

if  C=0  or  C=2;l+r2+r2 

next  J 

next  I 

fxd  0 

"  * " SA $ [  20  ,2 9]  & " * " &A $ f4 7  ,4 9 )  & " , " & A$ [ 50 ,5 3]  6  " *" ♦  L$ 

it  (rl+r2+r4-*-r7)  >9;L$&str  (r7)  -*LS 

if  r7<10;L$& "  "&str  (r7)  ♦Lb 

L$&"  *"+L$ 

gsb  "REAET 

gsb  "H" 

8000(rl+r2+r4)  +ti*H 
"  wvr$ 

str  (H)-*S$;S$[2]  -*S$ 

if  (len(SST-L)>3;S$flX-3)&,,,"&S$[L-2,L]-SS 
it  L>6;S$[l,L-6)  &  , [L— 5]  ♦S$ 

S$-T$[il-len(S$  ,l6] 

L$&T$&"  *  "+L$ 

str  (rl+val(N$T40.411  )-r5)-S$ 
if  len(SS)  =3;S $  [  ♦S$ 

L$&S$& "  *  %  *"+L$ 

wtb  10,27,76 

wrt  10 ,L$ 

wrt  10, char (30) 

wtb  10,27,104 

gsb  "MAN  EDIT" 

"F  RATE": 
gsb  "READ" 

if  pos<N$  "TESriNG")>0;s£g  l;wtb  I0.27.66;gsb  "mN  EDIT" 
if  num  (N$[l  ,1] )  =30;sfg  l;gsb  MAN  EDIT* 
it  flgl;gto  "RECORD" 
if  Nm,ll#"*";gtO  -4 
gsb  "H 

val  (N$[40  ,41] ) -*-N 
if  11=0;  0*r6:  q  to  +3 
if  N=0;2fc3*10^/HT6;gto  +2 
(3+N)  *10  5/8+2.3*10  (-3)*log(N)-r6 
fxd  2 

str  (r6)  »N$[47 ,51] 
fxd  0 

str  (N)*S$;i£  N<9; ' 
wtb  10,27,65 
wrt  10  ,N$ 
gto  "P  RATE" 

" RPAn" • 


"&S$*5$;S$*N$[39,41] 


READ' 

wtb  10,27,100,17 
fmt 

red  10,N$ 
ret 
"H": 

0-81 

if  W$[29,29)  ="  ,"  ;10" 
if  N5[33.33[="  ,";10~ 
val(N$[34  ,36] )  +H-*H 
ret 
"f-AN  EDIT"  : 
wtb  10,27,104.27,103 

dsp  "Release  REMOTE'  key" 
stp  J 

dsp  "Edit  data" 
stp 

dsp  "Depress  'REMOTE'  key" 


6 val (NS 
3val(NS 


28,28] )*H 
30 ,32] ) +R*H 
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(ount inue) 

95:  stp 

9o:  wtc  lu, 32;  wait  500 
97:  wtb  10  Jll ,104 

Uh  •  r  pf 

99:  "RECOHO": 

100:  ent  "Fiie  #  tor  tew  Sunmary  Tape?".D;if  flgl3;cfg  13;gto  -0 
101:  str(D)  *0$; D$[2]+D$ 

102:  wtD  10,27,104 

103:  wtb  10  ,27  ,,,&p"&D$&"p2u2C" 

104:  wtb  10  ,27,"  &p3s2dM" 

105:  wtb  10,27."&p2u5C" 

106:  dsp  "Press  CONI’ '<  when  cursor  steps" 
lu7:  stp 

10b:  wtb  10  ,27,104,27-76 

109:  wrt  10,"  **********  STATISTICAL  SUNMARY  *********** 

110:  wtb  10,27,76,27.76,27,76,27,66,27.66 

ill:  wrt  10,"  NANOP.  PART  NO .  TYPE" 

112:  wtb  10,27.80,27,80,27,66,27,76 
113:  gsb  "f^AD*' 

114:  it  pos (NS ," BOAH3"  )  =0;g to  -1 
115:  wtb  10,27,76,27,66,27,76 
116:  wrt  10,"  Pile  No.  -  "  D$ 

117:  wtb  10  ,27  ,76  -27  .76  .27  .66  ,27  ,76 .27  ,76  ,27  ,76  ,27 ,76  ,27  ,76  ,27  ,76  ,27 ,76 
118:  wrt  10  ,"********************************************************" 


119: 

:  wrt  10,"* 

* 

*  *  *  * 

*•» 

120: 

:  wrt  10  ,"* 

READ  OUT  * 

tOURS 

*  NO  -*ACCUMJLATED*  NO  * 

FAIL. 

RATE 

121 

:  wrt  10,"* 

DATE  * 

ON 

*  OF  *  DEVICE  *  OF  * 

*•« 

122 

:  wrt  10,"* 

* 

TEST 

*DEV.*  HOURS  *FAIL* 

%  per 

1000 

*« 

12  3: 

:  wrt  10,"* 

MD-DAY-YR* 

*  *  *  * 

Hours 

124: 

:  wrt  10,"* 

★ 

*  *  *  * 

ctg  1 

wrt  10  " ********************************************************* 

dsp  "INSERT  PAPER" 

wtE  10  ,27 ,104,27 ,76 ,32  ,32 ,32,32,32 ,32 ,27 ,89,27 ,77 ,27  ,90 


125:  ctg  1 
126:  wrt  I 
127:  dsp  " 
128 :  stp 
129:  wtb  1 
130:  wto  1 
131:  ssc  1 
132:  dsp  " 
133:  stp 
1 34 :  wtb  1 
135:  wtb  1 
136:  wtb  1 
137:  ldp  1 
program  |5 


wu J  JJU 

wtD  10  ,27  ^"Sipis4&4" 

ssc  l;trk  Oj  E+l+Ei;  ref  3,E 

dsp  "Press  CONT  ,  when  type,  stqps" 


wtb  10,27,71 

wtb  10 ,27  ,89,12 ,27 ,90 ,27 ,68 ,27 ,68,27 ,80 ,27 ,80 ,27 ,71 ,27  ,"&p3sl<BM 
wtb  10  ,27  ,89 ,27  ,6  9 ,27 ,90 ,27  Jo  8 ,27 ,6 8 ,27 ,80  ,27  ,80 ,27  ,71 ,27^^394 dB" 
ldp  1 


68]  ,B$f44l  -X,Y,L$(70]  ,T$[70]  ,N$[70]  ,E$[4]  ,D$(4]  ^$[12] 
4]  tE,R$ll2J 


ssc  l;trk  0 
ldk  2 
wtc  10.32 

dim  AS [68] ,B$[44I,X,Y,L$(70; 

dim  QSJ4]  ,E,R$]l2j 

ldf  3  ,fi,R$ 

txd  0 

E-F 

16*Z;ssc  12;trk  0 
ldf  F,A$.B$,X,Y 
:  it  pos  (A$  ."HiiBRID"  )  >0;  24*Z 
:  dim  C$(X,80]  .C[Y,Z.4] 

:  wtb  10.27,104,27,74 


gto  -0 


if  A$  [67  ,67]  ="  Y*' ;  T$& "Biased  "♦!'$ 
fmt  1  ,ox,c3,17x.c8  ,16x.cl2 
wrt  l6.1  ,A$[l,3J  -A$l6,i3t fA$[ 55,66] 
wrt  10,"  "&*TEST  CONDITIONS  -  "& 

wrt  10,"  "S,  "PACKAGE  -  Epoxy  DIP" 


40 


'! 


(continue) 

23:  wrt  10,"  'V'CONSi’RJCHON  -  ALUM." 

24:  dsp  "Late  Cede  for  BQAFD  "  ,B$[l,pos(B$,”-")-l] 
25*  ent  ""  f$ 

26:  wrt  lo',"  "S."(DM4ENTS  -  Date  Oode  "s.T$ 

27:  wrt  10,"  "&"BQAFD  "&B$ 

2b:  "LOAD": 

29:  idf  F+1,C$,C[*] 

30:  for  1=1  to  Y 

31:  for  0=1  to  Z 

32:  C(I,J,4]  *C 

33:  it  C=-3;l+r3*r3 

34:  if  0-2;  1+  r4-*r4 

35:  if  C=l;  1+rl+rl 

36:  if  C=0  car  C=2;l-H:2*r2 

37:  next  J 

3b:  next  I 

40:  wrtri0/'*r"&R$&"  *  0  *",str(r7),"  * 

42:  wtb  10;27*7]fM,65,27,65 
43:  fxd  0 

44:  val  (A$  [47^,52] )  ■**1’ 

47 i  if* |len( l'$? * LP3;  S $ ( 1  ,L -3]  & " , " &S$ [L-2 , L] -S  $ 

49:  “^"&a| [20^2^f 6^^ S>T$& "  *"&str  (r7)  *"+L$ 

50:  gsb  "FEALT 
51:  gsb  "H" 

52:  gsb  "GH  ,  „  , 

53:  Jval(A$[47,52]^-G)r7+H-*H 

I  IF  MjRtft. sflni^] « 

57:  if  L>6;S$Tl ,L-6]  &  ,"&S$[L-5]*S$ 

58:  S$-*T$  [il-Ien(S$j  ,10] 

"7:  L$r — “  ■t 


0  *  0  * 


0.00  %  *• 


59:  L$S.T$S,"  *  "-L$  ,  „ 

60:  str (rl+val(N$|40,4in*r5) *S$ 
61:  if  IenJSS)  =3;S$  ( 2]  -*S$ 

62:  L$&S$&  1  %  *  ♦L? 


"&S$[L-2,L]-S$ 


63:  If  H>0;wtb  10  ,27 ,76  ;gto 
64:  wtb  10,27,65 
65:  wrt  10 ,L$ 

66:  wrt  10,cnar(30) 

67:  wtb  10  ,27  J.04 
68:  gsb  "mi  EDIT" 

69:  "F  RATE":n 

71*:  rtbposS$,"TESriM3"  )>0;sfg  l?wtb10,27<66;gsb  "FAN  EDIT" 

m  ii  aasfe-Hisa^ li9sb  ™ 0511 

74:  if  NSU,ll#"*";gto  -4 

75:  gsb  V 

76:  val  (N$[40  ,41] )  *N 

77:  if  H*0;  0+r6;qfco  +3 

78:  if  N=0: 2.3*10  5/H+r6;gto +2 

79 :  (3+N) *10  5/H+2. 3*10* (-3)  *  log (N) ♦r6 

80:  fxd  2 

81:  str(r6)-*’N$[47,51] 

82:  fxd  0  „ 

83:  str(N)*S$;if  N<9;" 

84:  wtb  10,27,65 
85:  wrt  10^$ 

66:  gto  "F  RATE" 

87:  " FEAD"  :  ,  „  ,, 

88:  wtb  10,27,100,17 
89:  fmt 
90:  red  10,N$ 


’SS$-S$  ;S$*N$  [39,41] 
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(continue) 


0-H 
it  N$ 
it  N$ 
val  (N 


N$[29,29]  ="  , " ;  10*6 val (N$  f  28 ,28 J  >*H 
[<$133,331=",";  10 3val(N$  30 ,32])+ff* 
(N$[ 3^,36]  )+H-*tJ 


0-H3 

is  it  N$[16,16i  ="  ,";10  3val(N$[14  ,16]  )*G 
:  val  (N$[  1^,19})  4G-G 
cet 

it  "MAN  EDIT": 

:  wtb  10,27,104,27,103 
i:  dsp  “Release  REMOTE  key" 

:  s  tp 

dsp  “fad it  data" 

:  stp 

:  dsp  "Depress  REMOTE  key" 
i:  stp 

wtc  10,32;wait  500 
:  wtb  10,27,104 
l:  ret 
:  "REOQRO" : 

>:  ent  "File  #  for  New  Summary", D 
:  str(D)«-D$;D$[2]-*D$ 

:  wtb  10,27,104 

>:  wtb  10  ,27  &p%D$&  "p2u2C" 

i:  wtb  10  ,27 ,“  &p3s2<jM” 

I:  wtb  10 ,27  ,"%jb2u5C" 

dsp  "Press  CONT  <  when  cursor  stops" 

!:  stp 

l:  wtb  10,27,104,27,76 

is  wrt  10,"  **********  STATISTICAL  SUMMARY  **********" 

wtb  10  ,27 ,76  ,27 ,76 ,27  ,76  ,27 ,66,27  ,66 
:  wrt  10,"  FANUF.  PART  K>.  TYPE" 

wtb  10  ,27,80,27,80,27,66,27,76 
Is  gsb  "FEAD’1 

):  tf  pos  (N  S ,  "BOAHO"  )  =0;  g  to  -1 
is  wtb  10,27,76,27,66  ,27,76 

wrt  10,"  File  No.  -  "  D$ 

l s  wtb  10  ,27  .76  .27 ,76,27,66 ,2/,76  ,27,76 ,27  .76  ,27 .76 ,27 .76  ,27  ,76  ,27,76 
J*  wrt  10  M***,^************"***********'"***************♦*w**«******,, 

Is  wrt  10,"*  *  *  *  *  *  *» 

>:  wrt  10,"*  READ  CUT  *  HOURS  *  NO . *ACCU MJLATED *  NO  *  FAIL.  RATE  *" 

>:  wrt  10,"*  DATE  *  ON  *  OF  *  DEVICE  *  OF  *  *" 

wrt  10,"*  *  TEST  *DEV.*  HOURS  *FAIL*  %  per  1000  *" 

l:  wrt  10,"*  MO-OAY-YR*  *  *  *  *  fours  *" 

):  wrt  10,"*  *  *  *  *  *  *" 

):  cfq  1 

L:  wrt  10  "********************************************************•* 

l:  dsp  " I&EFT  PAPER" 

I:  wtl  10  ,27 ,104  ,27 ,76 ,32  ,32 ,32,32 ,32  ,32 ,27  ,89,27 ,77 ,27 ,90 
>:  wtb  10  ,27,"&p3s4cM" 

>:  ssc  l;trk  Q:E+2-*E;rcf  3,E,R$ 

1:  dsp  "Press  CONT  ,  when  type,  steps" 
i:  stp 

i :  wtb  10,27,71 

):  wtb  10 ,27  ,89,12 ,27 ,90  ,27 ,68 ,27 ,68,27 ,80 ,27,80 ,27 ,71,27  ,"&p3s4dB" 

L :  wtb  10  ,27  ,89 ,27  ,69 ,27 ,90 ,27 ,68 ,27 ,68 ,27  '80 ,27  ,80 ,27 ,71 ,27~,&p3s4ciB" 

1:  Idp  5 


APPENDIX  F 


^w^vfey-vv'y  laMMmw 


TYPICAL  TEST  DATA 

MAN.  DEVICE  FROM  TESTED  LOCAL  CONDITION  HOURS  BOAR! 
i'l  SKA8029  CONT  09-28-79  Pan  Jungle  4617b  NPN 

BOARD:  2425-2448  2449-2472 

FIELD  BIAS  CONDITIONS:  Vce=10  Volts 


IQ30  (nA) 

BETA 

vBe  (V) 

DEVICE 

Vqj  =16V 

Vce=5V , Ic=2mA 

l3=2Q0mA 

No. 

STATUS 

(0-1000) 

(25-400) 

(.5-2.5) 

45.00 

84 

1.227 

2425 

Good 

53.00 

25 

1.  215 

2426 

Good* 

49.00 

86 

1.211 

2427 

Good 

49.00 

82 

1.201 

2428 

Good 

51.00 

81 

1.201 

2429 

Good 

47.00 

103 

1.225 

2430 

Good 

39.00 

93 

1.204 

2431 

Good 

— 

— 

— 

2432 

Missing 

— 

— 

— 

2433 

Missing 

40.00 

85 

1.190 

2434 

Good 

— 

— 

— 

2435 

Missing 

38.00 

98 

1.188 

2436 

Good 

44.00 

76 

1. 184 

2437 

Good 

51.00 

79 

1.189 

2438 

Good 

53.00 

106 

1. 173 

2439 

Good 

59.00 

76 

1.187 

2440 

Good 

59.00 

111 

1.186 

2441 

Good 

6649.00 

-9 

1.185 

2442 

Verified  Eailure 

42.00 

75 

1.166 

2443 

Good 

43.00 

85 

1. 176 

2444 

Good 

43.00 

119 

1.170 

2445 

Good 

42.00 

104 

1.193 

2446 

Good 

48.00 

79 

1.177 

2447 

Good 

42.00 

76 

1. 170 

2448 

Good 

38.00 

75 

1.255 

2449 

Good 

38.00 

80 

1.226 

2450 

Good 

33.00 

91 

1.221 

2451 

Good 

36.00 

67 

1.213 

2452 

Good 

38.00 

92 

1.218 

2453 

Good 

36.00 

85 

1.264 

24  54 

Good 

35.00 

79 

1.210 

2455 

Good 

- 

— 

2456 

Missing 

— 

— 

— 

2457 

Missing 

30.00 

82 

1.202 

2458 

Good 

30.00 

89 

1.216 

2459 

Good 

30.00 

88 

1.203 

2460 

Good 

32.00 

85 

1.190 

2461 

Good 

34.00 

83 

1.184 

2462 

Good 

35.00 

97 

1.178 

2463 

Good 

34.00 

89 

1.180 

246  4 

Good 

35.00 

82 

1.186 

2465 

Good 

- 

— 

2466 

Missing 

32.00 

124 

1. 172 

2467 

Good 

32.00 

74 

1.174 

246  8 

Good 

— 

— 

2469 

Missing 

30700 

83 

1. 187 

2470 

Good 

30.00 

44 

1. 165 

2471 

Good 

31.00 

103 

1.175 

2472 

Good 

♦Data  was  determined  to  be  incorrect  and  was  manually  edited. 
Data  is  stared  on  Transistor  Tape,  file  nos.  27  &  28 
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APPENDIX  G 
TOPICAL  DATA  SUMMARY 


MANUF  PART  NO.  TYPE 

T.I.  SKA8029  NPN 

TEST  CONDITIONS  -  SKUNK  HOLLOW  PANAMA 

PACKAGE  -  EPOXY  (NEW) 

CONSTRUCTION  -  ALUM  -  GOLD  WIRES  -  NO  DIECOATING 
COMMENTS  -  FROM  TI  -  PEM  TYPE  TESTED 
BOARD  -  2425-2448  2449-2472 

FILE  38 

ft******************************************************* 


* 

* 

* 

* 

* 

* 

* 

* 

READ  OUT  * 

HOURS 

* 

NO. ‘ACCUMULATED* 

NO  . 

* 

FAIL. 

RATE 

* 

* 

DATE  * 

ON 

* 

OF  * 

DEVICE 

★ 

OF 

* 

* 

* 

* 

TEST 

‘DEV.  ‘ 

HOURS 

‘FAIL 

* 

%  per 

1000 

* 

* 

MO-DAY-YR* 

* 

* 

* 

* 

Hour  s 

* 

******************************************************** 


* 


*/0  3- 12-73/‘ 

0 

* 

48 

★ 

0 

* 

0 

* 

0.00 

% 

* 

‘/07-19-73/* 

2,856 

* 

48 

* 

137  ,088 

* 

0 

* 

1.  68 

% 

* 

*/02- 2d-74/‘ 

7  ,992 

* 

48 

★ 

383,616 

* 

0 

* 

0.60 

% 

* 

*  12-12-74  * 

14,040 

* 

47 

* 

667,872 

* 

1 

* 

0.  60 

% 

* 

*  09-15-75  * 

19,776 

* 

45 

* 

925,9  92 

* 

1 

* 

0.43 

% 

* 

*  04-01-76  * 

23  ,476 

* 

45 

* 

1,092  ,491 

* 

2 

* 

0.46 

% 

* 

*  02-15-77  ‘ 

29,176 

* 

44 

* 

1,343,292 

* 

5 

* 

0.  60 

% 

* 

*  07-31-78  * 

37  ,176 

* 

41 

* 

1,671  ,292 

* 

5 

* 

0.  48 

% 

* 

*  09-28-79  * 

46  ,176 

* 

41 

* 

2  ,040  ,292 

* 

6 

* 

0.  52 

% 

* 

APPENDIX  H 
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SPLIT  BOARD  ROUTINE 


0:  "FIXING  FILES  1  THRU  8  TO  ACCOUNT  FOR  SPLIT  BOARDS": 
Is  trk  0 

2:  dim  f$(5 ,$01  ,C [2,16 ,4] 

3:  ell  ,eait,  (2,2  ,9  ,16) 

4:  ell  ;  edit  4,1,1 ,8) 

5:  cl  1  'edit' (6,2  ,9 ,16) 

6:  cl  1  edit  (8,1 ,1,8) 

7:  end 

8:  "edit": 

9:  ldf  pl^$C(*l 
10:  foe  J=p3  to  p4 

11:  G+C  [p2  ,J  ,1]  *C  (p2  ,J  ,2]  «C  (p2  ,J  ,3]  <  fp2  ,J,4  ] 

12:  next  J 

13:  ref  pl,C$,C[*j 

14:  ret 


APPENDIX  I 


TABLE  OF  CONTENTS  ROUTINE 


"PRINT  TABLE  OF  CONTENTS  OF  DATA  ON  TAPE" : 
dim  A$[68J  ,B$[44J  ,X,¥,T$[5G]  ,D$[20] 
erjt  "Titje  of  tape?  ,T$ 

"  "&TSX,"  'VrS 

for  l=l+len(T$)  to  50 

"  Vr$[I,I] 

next  I 

fmt  2  5  X."  CONTE  NTS  OF  TAPE  ENTITLED  -  "  ,c50  ,2/ 
wrt  6  ,T§  , 

ent  "Today  s  date? (29  June  1978)"  ,0$ 

:  fmt  89x,c20,2/ 
wrt  6  JD$ 

“FILE  #";wrt  6 


0 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12:  fmt 


13:  trk  0 
14:  for  1=1  to  199  by  2 
15:  fdf  I 
16:  idf  A -A  .A  A 
17:  if  A=0;  l99*I;gto  +4 

in  m  w* 

20:  wrt  6,I,A$,B$ 

21:  next  I 
22:  end 


HISA-Ffl  1105-80 


45 


f 


